(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    267946,       6763]
NotebookOptionsPosition[    240387,       6294]
NotebookOutlinePosition[    240831,       6312]
CellTagsIndexPosition[    240788,       6309]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["SpTm \:6587\:6863", "Title",
 CellChangeTimes->{{3.881380083838918*^9, 3.881380085323628*^9}, {
  3.8831225336102076`*^9, 3.883122544748518*^9}, {3.8863843547387395`*^9, 
  3.886384356980101*^9}},ExpressionUUID->"992f1165-6867-4b9b-9b9b-\
e95a71e152ea"],

Cell[CellGroupData[{

Cell["\:7b80\:4ecb", "Section",
 CellChangeTimes->{{3.886384358417791*^9, 
  3.8863843630213795`*^9}},ExpressionUUID->"f2abca9b-adfd-446a-98c1-\
49c2a9d4d7f0"],

Cell["\<\
SpTm\:662fSpace-Tim\:7684\:7f29\:5199\:ff0c\:5b83\:662f\:5e7f\:4e49\:76f8\
\:5bf9\:8bba\:7684\:80cc\:666f\:3002\:8fd9\:4e2a\:7a0b\:5e8f\:5305\:662f\:7528\
\:6765\:8ba1\:7b97\:5e26\:6709\:62bd\:8c61\:6307\:6807\:8bb0\:53f7\:7684\:5f20\
\:91cf\:8868\:8fbe\:5f0f\:3002\:5f53\:4f60\:5728\:5b66\:4e60\:5fae\:5206\:51e0\
\:4f55\:6216\:5e7f\:4e49\:76f8\:5bf9\:8bba\:65f6\:ff0c\:4f60\:53ef\:4ee5\:4f7f\
\:7528\:8fd9\:4e2a\:5305\:6765\:505a\:4e00\:4e9b\:8ba1\:7b97\:3002\:8ba1\:7b97\
\:4e00\:4e2a\:5f20\:91cf\:8868\:8fbe\:5f0f\:7684\:6240\:6709\:5206\:91cf\:5f88\
\:8d39\:8349\:7a3f\:7eb8\:ff0c\:800c\:4e14\:5f88\:5bb9\:6613\:51fa\:9519\:3002\
\:4f46\:8fd9\:4e2a\:5305\:4f1a\:8ba9\:8ba1\:7b97\:53d8\:5f97\:66f4\:5bb9\:6613\
\:3002
\:5728\:8fd9\:4e2a\:8f6f\:4ef6\:5305\:4e2d\:ff0c\:4f60\:53ef\:4ee5\:4f7f\:7528\
\:4e00\:4e2a\:66f4\:52a0\:5bb9\:6613\:9605\:8bfb\:7684\:5f62\:5f0f\:ff0c\:4ee5\
\:66f4\:7b80\:5355\:7684\:65b9\:5f0f\:8f93\:5165\:5f20\:91cf\:548c\:5f20\:91cf\
\:8868\:8fbe\:5f0f\:3002\
\>", "Abstract",
 CellChangeTimes->{{3.886384392379833*^9, 
  3.886384459630393*^9}},ExpressionUUID->"f48400a9-7722-4ae8-9524-\
f98a20f68500"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5b89\:88c5\:4e0e\:5bfc\:5165", "Section",
 CellChangeTimes->{{3.883641225742139*^9, 3.883641263922011*^9}, {
  3.8854602491613054`*^9, 
  3.8854602514658165`*^9}},ExpressionUUID->"cd6311c4-4fd7-49b8-b6bd-\
bb6463c3a388"],

Cell[CellGroupData[{

Cell["\:65b9\:6cd5\:4e00", "Subsection",
 CellChangeTimes->{{3.8836412445683746`*^9, 3.8836412869512835`*^9}, {
  3.8850258210703382`*^9, 
  3.885025822971964*^9}},ExpressionUUID->"6576790c-9f70-4ead-befd-\
53a043c5c7c9"],

Cell["\:624b\:52a8\:4e0b\:8f7dSpTm.wl\:ff0c\:5e76\:5c06\:5176\:653e\:7f6e\
\:4e8e\:5f53\:524d\:7b14\:8bb0\:672c\:7684\:540c\:4e00\:76ee\:5f55\:4e0b\:ff0c\
\:7136\:540e\:5728\:5f53\:524d\:7b14\:8bb0\:672c\:4e2d\:6267\:884c\:4ee5\:4e0b\
\:8bed\:53e5\:ff1a", "Text",
 CellChangeTimes->{{3.8836412927021756`*^9, 3.883641346442271*^9}, {
  3.883641378843009*^9, 3.8836414338934865`*^9}, {3.8836843958967094`*^9, 
  3.883684396256482*^9}},ExpressionUUID->"330e8f1c-4728-483f-9114-\
cb105092065c"],

Cell[BoxData[
 RowBox[{"Get", "@", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<SpTm.wl\>\""}], "}"}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.8810057360810456`*^9, 3.881005826356372*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"5be65ce5-ee35-4e15-90c0-2f0ac0e85fcb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:65b9\:6cd5\:4e8c\:ff08\:63a8\:8350\:ff09", "Subsection",
 CellChangeTimes->{{3.88364144955291*^9, 3.8836415018418617`*^9}, {
  3.8850258163322105`*^9, 
  3.8850258201882315`*^9}},ExpressionUUID->"be830d1a-209d-4a77-b294-\
177f90002875"],

Cell["\:5728\:8054\:7f51\:7684\:6761\:4ef6\:4e0b\:6267\:884c\:4ee5\:4e0b\:8bed\
\:53e5\:ff1a", "Text",
 CellChangeTimes->{{3.8836415042615013`*^9, 
  3.883641520078022*^9}},ExpressionUUID->"4a8e168f-88d9-454b-bec2-\
7f49a371578b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"URLDownload", "[", 
   RowBox[{
   "\"\<https://raw.githubusercontent.com/Jayce-Ping/SpTm/main/SpTm.wl\>\"", 
    ",", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "$UserBaseDirectory", ",", " ", "\"\<Applications\>\"", ",", " ", 
       "\"\<SpTm.wl\>\""}], "}"}], "]"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8836415220073876`*^9, 3.883641533753528*^9}, {
   3.8836838779631033`*^9, 3.88368388757158*^9}, {3.8836839442056456`*^9, 
   3.883683971479333*^9}, {3.883684214181405*^9, 3.883684260581708*^9}, 
   3.8836843828303185`*^9, 
   3.88449543876163*^9},ExpressionUUID->"56e704cd-2e17-4ea2-86e4-\
b7fca854df1c"],

Cell[TextData[{
 "\:6b64\:540e\:ff0c\:5728\:4efb\:4f55\:7b14\:8bb0\:672c\:4e2d\:9700\:8981\
\:5bfc\:5165SpTm\:65f6\:53ea\:9700\:8981\:6267\:884c",
 StyleBox["<<SpTm`", "Code"],
 "\:6216",
 StyleBox["Needs[\[OpenCurlyDoubleQuote]SpTm`\[CloseCurlyDoubleQuote]", 
  "Code"],
 "]\:5373\:53ef"
}], "Text",
 CellChangeTimes->{{3.8836415363357935`*^9, 
  3.8836416235269403`*^9}},ExpressionUUID->"82cf8e41-158d-4104-b64b-\
9ea43e9b4184"],

Cell[BoxData[
 RowBox[{"<<", "SpTm`"}]], "Input",
 CellChangeTimes->{{3.8836416524470835`*^9, 3.8836416551319284`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e0fc13ed-95c3-4209-9a62-d845bf3cbb39"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<SpTm`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8836416599974866`*^9, 3.8836416694431705`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"67169ae6-624e-4aa0-acac-2d2ba4354708"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:83b7\:53d6\:5e2e\:52a9", "Section",
 CellChangeTimes->{{3.8863844898116703`*^9, 
  3.8863844912044907`*^9}},ExpressionUUID->"2ff23862-30a4-43bb-9cd7-\
edae600810cb"],

Cell["\:4f7f\:7528\:5982\:4e0b\:8bed\:53e5\:83b7\:53d6\:5e2e\:52a9\:4fe1\:606f\
\:ff1a", "Text",
 CellChangeTimes->{{3.88638449417141*^9, 
  3.8863845042483263`*^9}},ExpressionUUID->"452a6e54-733f-4562-b941-\
81538d928e05"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SpTm`*"}]], "Input",
 CellChangeTimes->{{3.8863845055654087`*^9, 3.886384508965577*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"67c1b7a1-ab49-4a4e-8d7a-793dbefa66d5"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["SpTm`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {3., 7.}}], " ", 
              StyleBox["SpTm`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["BoostMatrix", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "BoostMatrix", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SCalcRicciTensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCalcRicciTensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SetMetricSymbol", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SetMetricSymbol", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STCalcAbstractExpression", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STCalcAbstractExpression", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SVolumeElement", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SVolumeElement", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["CoordinatesInfo", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "CoordinatesInfo", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SCalcRiemannTensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCalcRiemannTensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SetTensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SetTensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STCalcComponents", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STCalcComponents", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ToTensorExpression", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "ToTensorExpression", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["MetricInfo", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "MetricInfo", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SCalcWeylTensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCalcWeylTensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ShowForm", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "ShowForm", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STCalcTensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STCalcTensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], ""},
               {
                ButtonBox[
                 StyleBox["SCalcChristoffel", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCalcChristoffel", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SCoordinatesTransform", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCoordinatesTransform", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SLineElement", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SLineElement", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], ""},
               {
                ButtonBox[
                 StyleBox["SCalcEinsteinTensor", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCalcEinsteinTensor", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SetCoordinates", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SetCoordinates", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SpTmHelp", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SpTmHelp", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STensorInfo", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STensorInfo", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], ""},
               {
                ButtonBox[
                 StyleBox["SCalcRicciScalar", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SCalcRicciScalar", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SetMetric", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "SetMetric", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STAntiSymmetrize", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STAntiSymmetrize", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["STSymmetrize", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-377fb648-bb21-4ee8-8966-c65219a06920", {
                   "STSymmetrize", "SpTm`"}, False},
                 ButtonNote->"SpTm`",
                 Evaluator->Automatic], ""}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.19]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{3.8863845148872175`*^9, 3.886455320548856*^9, 
  3.8921910447224483`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"07463082-9a3b-4fc2-bcef-5f14085c9ce9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:57fa\:672c\:7528\:6cd5", "Section",
 CellChangeTimes->{{3.8835088338597097`*^9, 
  3.8835088375599337`*^9}},ExpressionUUID->"2937bdc0-83bb-48db-99d1-\
4c2d0a03f2f3"],

Cell[CellGroupData[{

Cell["\:8f93\:5165\:5f20\:91cf", "Subsection",
 CellChangeTimes->{{3.883508895738841*^9, 
  3.883508896853963*^9}},ExpressionUUID->"2cf0547c-22e1-44c9-8430-\
8bf337689341"],

Cell["\:91c7\:7528Ctrl+_\:8f93\:5165\:4e0b\:6807\:ff0c\:4f7f\:7528Ctrl+^\:8f93\
\:5165\:4e0a\:6807\:6765\:8868\:793a\:5177\:6709\:62bd\:8c61\:6307\:6807\:7684\
\:5f20\:91cf\:3002", "Text",
 CellChangeTimes->{{3.883508889957507*^9, 
  3.883508974610052*^9}},ExpressionUUID->"1211a31b-f51e-487a-890d-\
faf234cfc72c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ToTensorExpression", "[", 
  SuperscriptBox[
   SubscriptBox["h", "ab"], "cd"], "]"}]], "Input",
 CellChangeTimes->{{3.8835088393745947`*^9, 3.883508880571756*^9}, {
   3.8836045006219053`*^9, 3.8836045041908617`*^9}, 3.8921910534864054`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"29056a03-1185-4c10-9a32-4b7545eeeeb0"],

Cell[BoxData[
 RowBox[{"STensor", "[", 
  RowBox[{"h", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"c", ",", "d"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.883508977561695*^9, {3.883604498281648*^9, 3.8836045048385787`*^9}, 
   3.883604559078636*^9, 3.8921910572930145`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"4d16333f-95d3-4b2e-b17d-115fd00ca029"]
}, Open  ]],

Cell[TextData[{
 StyleBox["ToTensorExpression",
  FontWeight->"Bold"],
 " \:5c06\:4f60\:7684\:8f93\:5165\:89e3\:91ca\:4e3aSpTm\:5185\:90e8\:7684\
\:8868\:8fbe\:5f62\:5f0f\:3002\:7ed3\:679c\:5f97\:5230\:7684STensor[h, {sub}, \
{sup}]\:8868\:793a\:4e00\:4e2a\:5f20\:91cf\:ff0c\:7b26\:53f7\:4e3ah\:ff0c\
\:4e0b\:6807\:5217\:8868\:4e3asub\:ff0c\:4e0a\:6807\:5217\:8868\:4e3asup."
}], "Text",
 CellChangeTimes->{{3.883508982225129*^9, 3.883509086459501*^9}, {
   3.885262837951028*^9, 3.8852628788254185`*^9}, 
   3.89219105349835*^9},ExpressionUUID->"5c00e9c1-fcc9-4fa4-9e4e-\
e96bcd3112bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5316\:7b80\:62bd\:8c61\:6307\:6807\:8868\:8fbe\:5f0f", "Subsection",
 CellChangeTimes->{{3.883509095651495*^9, 
  3.8835091094895077`*^9}},ExpressionUUID->"9b23f368-08a7-4775-a5d3-\
53455ab635be"],

Cell["\:4f7f\:7528STCalcAbstractExpression\:6765\:5bf9\:62bd\:8c61\:6307\:6807\
\:8868\:8fbe\:5f0f\:8fdb\:884c\:7b80\:5355\:7684\:5f62\:5f0f\:8f6c\:5316\:548c\
\:5316\:7b80", "Text",
 CellChangeTimes->{{3.883509112550996*^9, 3.8835091484659147`*^9}, 
   3.8921910884907384`*^9},ExpressionUUID->"1b3073df-8d81-4f79-9ea0-\
c6c12ec34818"],

Cell[BoxData[
 RowBox[{
  RowBox[{"expr", "=", 
   RowBox[{
    SuperscriptBox["v", "d"], 
    RowBox[{
     SubscriptBox["\[Del]", "a"], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["g", "bc"], " ", 
       SuperscriptBox["w", "e"]}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8835095079732056`*^9, 3.8835095137222385`*^9}, 
   3.883604515459591*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"5e554bb4-b06a-431f-b238-a8741b6d89fc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcAbstractExpression", "[", "expr", "]"}]], "Input",
 CellChangeTimes->{{3.883509151134692*^9, 3.883509216961632*^9}, {
   3.8835094945923553`*^9, 3.8835095202901397`*^9}, 3.8921910827459965`*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"3a927a4f-bcfb-4d1b-a76c-35fc8966d135"],

Cell[BoxData[
 RowBox[{
  TemplateBox[{
    RowBox[{"STensor", "[", 
      RowBox[{"w", ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "e", "}"}]}], "]"}], "a"},
   "Grad"], " ", 
  RowBox[{"STensor", "[", 
   RowBox[{"g", ",", 
    RowBox[{"{", 
     RowBox[{"b", ",", "c"}], "}"}], ",", 
    RowBox[{"{", "}"}]}], "]"}], " ", 
  RowBox[{"STensor", "[", 
   RowBox[{"v", ",", 
    RowBox[{"{", "}"}], ",", 
    RowBox[{"{", "d", "}"}]}], "]"}]}]], "Output",
 CellChangeTimes->{{3.883509193138229*^9, 3.883509217962493*^9}, {
   3.883509496070565*^9, 3.883509520831612*^9}, 3.8836045173371487`*^9, 
   3.883604562730315*^9, 3.8921910902728367`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"8276f2cf-e286-4a97-a63f-4a5020c45fcf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.8835092250149055`*^9, 3.883509230167117*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"dd274bfe-a847-4cfd-877a-0fda5780fa70"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Times", "[", 
    RowBox[{
     RowBox[{"Grad", "[", 
      RowBox[{
       RowBox[{"STensor", "[", 
        RowBox[{"w", ",", 
         RowBox[{"List", "[", "]"}], ",", 
         RowBox[{"List", "[", "e", "]"}]}], "]"}], ",", "a"}], "]"}], ",", 
     RowBox[{"STensor", "[", 
      RowBox[{"g", ",", 
       RowBox[{"List", "[", 
        RowBox[{"b", ",", "c"}], "]"}], ",", 
       RowBox[{"List", "[", "]"}]}], "]"}], ",", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"List", "[", "]"}], ",", 
       RowBox[{"List", "[", "d", "]"}]}], "]"}]}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.8835092304653625`*^9, {3.88350949938669*^9, 3.8835095227463303`*^9}, 
   3.883604565965254*^9, 3.8921910913103952`*^9},
 CellLabel->
  "Out[6]//FullForm=",ExpressionUUID->"19bef5ac-21fd-4a1a-b8f0-341e840d5d3d"]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\:56e0\:4e3a", 
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      SubscriptBox["g", 
       RowBox[{"b", " ", "c"}]]}]}], "=", "0"}], TraditionalForm]],
  ExpressionUUID->"58498f60-b2f3-44cd-b12d-08de32eb19e0"],
 "\:ff0c\[Del]\:662f\:4e0e\:5ea6\:89c4g\:9002\:914d\:7684\:5bfc\:6570\:7b97\
\:7b26\:ff0c\:4e0a\:5f0f\:5373\:4e3a\:5316\:7b80\:7684\:7ed3\:679c\:3002\:5982\
\:679c\:60f3\:8981\:663e\:793a\:6210\:66f4\:76f4\:89c2\:7684\:5f62\:5f0f\:ff0c\
\:53ef\:4ee5\:4f7f\:7528",
 StyleBox["ShowForm",
  FontWeight->"Bold"],
 "\:6765\:5b9e\:73b0\:3002"
}], "Text",
 CellChangeTimes->{{3.8835092474557557`*^9, 3.883509313926421*^9}, {
  3.8835093450656123`*^9, 3.883509359271285*^9}, {3.8852627726091447`*^9, 
  3.885262782707409*^9}},ExpressionUUID->"706abe68-fed2-4589-a5ba-\
0b039ce905b8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "ShowForm"}]], "Input",
 CellChangeTimes->{{3.8835093835753264`*^9, 3.8835093890967493`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"5b513699-a459-411e-9a07-bc84f71818d4"],

Cell[BoxData[
 RowBox[{
  TemplateBox[{
    TemplateBox[{"w", 
      TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
     SuperscriptBox], "a"},
   "Grad"], " ", 
  SubscriptBox["g", 
   TemplateBox[{"b", "c"},
    "RowDefault"]], " ", 
  TemplateBox[{"v", 
    TemplateBox[{"d"}, "RowDefault"]},
   "Superscript"]}]], "Output",
 CellChangeTimes->{
  3.883509393931878*^9, {3.883509500867369*^9, 3.8835095259985943`*^9}, 
   3.8836045692169633`*^9, 3.8921910924945664`*^9},
 CellLabel->
  "Out[7]//StandardForm=",ExpressionUUID->"ddcb89ad-4151-49c2-88a9-\
54c767bb0cb6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5bf9\:79f0\:5316\:4e0e\:53cd\:5bf9\:79f0\:5316", "Subsection",
 CellChangeTimes->{{3.883509415085127*^9, 
  3.8835094393044367`*^9}},ExpressionUUID->"7b7b8ec5-9d82-44b5-b26a-\
df80bc04e09b"],

Cell[TextData[{
 "\:4f60\:53ef\:4ee5\:4f7f\:7528 ",
 StyleBox["STSymmetrize",
  FontWeight->"Bold"],
 "/",
 StyleBox["STAntisymmetrize ",
  FontWeight->"Bold"],
 "\:6765\:5bf9\:4e00\:4e2a\:5f20\:91cf\:6216\:8005\:8868\:8fbe\:5f0f\:8fdb\
\:884c\:5bf9\:79f0\:5316/\:53cd\:5bf9\:79f0\:5316\:ff0c\:793a\:4f8b\:5982\
\:4e0b\:ff1a"
}], "Text",
 CellChangeTimes->{{3.885262726847535*^9, 
  3.8852627645267215`*^9}},ExpressionUUID->"d905f57e-c1e6-43c0-92c6-\
a01ebf4fe108"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STSymmetrize", "[", 
  RowBox[{"expr", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8835094422343655`*^9, 3.8835094531613073`*^9}, {
  3.8835095347222557`*^9, 3.8835095353634634`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"fae79243-ef81-4a88-b67b-55119a154aa3"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"a", ",", "b"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "c"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"a", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "b"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "a"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "c"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "a"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"c", ",", "a"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "b"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"c", ",", "b"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "a"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.883509462585811*^9, 3.8835095358996944`*^9, 
  3.8836045736861525`*^9, 3.8921910942960634`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"b7d26e82-f702-40c8-8803-b3416db95295"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "ShowForm"}]], "Input",
 CellChangeTimes->{{3.883509475435532*^9, 3.8835094796864233`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"8157e03e-e7da-43fb-b135-e70b1d87a12b"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"a", "b"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "c"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"a", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "b"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "a"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "c"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "a"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"c", "a"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "b"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"c", "b"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "a"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.883509484659371*^9, 3.8835095403107805`*^9, 
  3.883604574949935*^9, 3.8921910958910427`*^9},
 CellLabel->
  "Out[9]//StandardForm=",ExpressionUUID->"0fbb2dad-b2d3-476a-be5f-\
34299b94854d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STAntiSymmetrize", "[", 
  RowBox[{"expr", ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "e", ",", "d"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8835095457365217`*^9, 3.8835095557113895`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"7426e480-e151-4fd9-b473-97f25450df99"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "d", "}"}]}], "]"}]}], ")"}], "e"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "a", "}"}]}], "]"}]}], "-", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "d"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "a", "}"}]}], "]"}]}], "-", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "a", "}"}]}], "]"}]}], ")"}], "e"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "e", "}"}]}], "]"}]}], ")"}], "a"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "d", "}"}]}], "]"}]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "a", "}"}]}], "]"}]}], ")"}], "d"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "e", "}"}]}], "]"}]}], "-", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           RowBox[{"STensor", "[", 
             RowBox[{"g", ",", 
               RowBox[{"{", 
                 RowBox[{"b", ",", "c"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], " ", 
           RowBox[{"STensor", "[", 
             RowBox[{"w", ",", 
               RowBox[{"{", "}"}], ",", 
               RowBox[{"{", "d", "}"}]}], "]"}]}], ")"}], "a"},
      "Grad"], " ", 
     RowBox[{"STensor", "[", 
      RowBox[{"v", ",", 
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "e", "}"}]}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8835095665554647`*^9, 3.8836045762027426`*^9, 
  3.8921910974655747`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"54e058d8-19a4-421f-bbd3-dbb63ed997a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "//", "ShowForm"}]], "Input",
 CellChangeTimes->{{3.883509575370508*^9, 3.883509579176064*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"18847be7-305f-44c0-b66f-dfefd3ea5a44"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"d"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "e"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"a"}, "RowDefault"]},
      "Superscript"]}], "-", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "d"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"a"}, "RowDefault"]},
      "Superscript"]}], "-", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"a"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "e"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"e"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "a"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"d"}, "RowDefault"]},
      "Superscript"]}], "+", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"a"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "d"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"e"}, "RowDefault"]},
      "Superscript"]}], "-", 
    RowBox[{
     TemplateBox[{
       RowBox[{"(", 
         RowBox[{
           SubscriptBox["g", 
            TemplateBox[{"b", "c"}, "RowDefault"]], " ", 
           TemplateBox[{"w", 
             TemplateBox[{"d"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}], ")"}], "a"},
      "Grad"], " ", 
     TemplateBox[{"v", 
       TemplateBox[{"e"}, "RowDefault"]},
      "Superscript"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8835095867273283`*^9, 3.8836045774515295`*^9, 
  3.8921910992786407`*^9},
 CellLabel->
  "Out[11]//StandardForm=",ExpressionUUID->"3eb5dfab-0714-4f13-bc7a-\
cd2dc5383ec0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8bbe\:7f6e\:5750\:6807\:7cfb", "Subsection",
 CellChangeTimes->{{3.886455335031535*^9, 
  3.8864553359801936`*^9}},ExpressionUUID->"8981000e-1d44-4608-bdbd-\
c8f0d4003e4c"],

Cell["\:4e8b\:5b9e\:4e0a\:ff0c\:6211\:4eec\:5927\:90e8\:5206\:7684\:5de5\:4f5c\
\:9700\:8981\:501f\:52a9\:5750\:6807\:7cfb\:6765\:5b8c\:6210\:3002\:4f60\:53ef\
\:4ee5\:4f7f\:7528SetCoordinates\:6765\:8bbe\:7f6e\:5750\:6807\:7cfb\:ff1a", \
"Text",
 CellChangeTimes->{{3.8864553384811687`*^9, 
  3.886455392102022*^9}},ExpressionUUID->"e78453fb-f96b-40c6-8176-\
f2a0f311bf27"],

Cell[BoxData[
 RowBox[{"SetCoordinates", "[", 
  RowBox[{"{", 
   RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8864553947470083`*^9, 3.886455401311743*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"b5c93dbc-2db0-4cb7-a931-e58651fd3d84"],

Cell["\:5982\:679c\:6ca1\:6709\:4efb\:4f55\:62a5\:9519\:ff0c\:8bf4\:660e\:5750\
\:6807\:7cfb\:5df2\:7ecf\:8bbe\:7f6e\:597d\:4e86\:3002", "Text",
 CellChangeTimes->{{3.886455404604887*^9, 
  3.886455416442314*^9}},ExpressionUUID->"d088965f-2285-4a90-a242-\
ceba267cd000"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5750\:6807\:57fa\:5e95\:548c\:5bf9\:5076\:5750\:6807\:57fa\:5e95", \
"Subsection",
 CellChangeTimes->{{3.886455420213025*^9, 
  3.8864554350824366`*^9}},ExpressionUUID->"40cd7827-9f86-4793-acf6-\
935b40aebe27"],

Cell[TextData[{
 "\:5728\:5fae\:5206\:51e0\:4f55\:4e2d\:ff0c\:6709\:4e00\:7ec4\:5341\:5206\
\:91cd\:8981\:7684\:77e2\:91cf\[LongDash]\[LongDash]\:5750\:6807\:57fa\:5e95\
\:3002\:6211\:4eec\:901a\:5e38\:4f7f\:7528 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["\[PartialD]", 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["x", "i"]}]], ")"}], "a"], TraditionalForm]],
  ExpressionUUID->"ebb413e2-0d39-4423-af01-1e442fdf913d"],
 "\:6765\:8868\:793a\:7b2ci\:4e2a\:5750\:6807\:57fa\:5e95\:3002\:4f46\:662f\
\:5728Mathematica\:4e2d\:ff0c\:76f4\:63a5\:4f7f\:7528\[PartialD]\:4f1a\:5bfc\
\:81f4\:62a5\:9519\:ff0c\:56e0\:4e3a\:8868\:8fbe\:5f0f\:662f\:4e0d\:5b8c\:6574\
\:7684\:ff1a"
}], "Text",
 CellChangeTimes->{{3.886455439498305*^9, 
  3.8864555087623315`*^9}},ExpressionUUID->"8b665e45-7ff5-4556-958e-\
14c5a1348a7e"],

Cell[BoxData["\[PartialD]"], "Code",
 CellChangeTimes->{{3.886455535412036*^9, 3.886455538037367*^9}},
 EmphasizeSyntaxErrors->True,
 CellLabel->"In[3]:=",ExpressionUUID->"80fa8022-d13b-4dd6-8b0f-32646883838d"],

Cell[TextData[{
 "\:53e6\:5916\:ff0c\:4f7f\:7528 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["\[PartialD]", 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["x", "i"]}]], ")"}], "a"], TraditionalForm]],
  ExpressionUUID->"30c17ae0-bbe5-440f-8a17-ea6a016b18ed"],
 "\:6765\:8f93\:5165\:4e00\:4e2a\:77e2\:91cf\:592a\:590d\:6742\:4e86\:3002\
\:4f60\:9700\:8981\:4e0d\:65ad\:5730\:6309Ctrl\:548c\:5207\:6362\:5149\:6807\
\:7684\:4f4d\:7f6e\:3002\:4f46\:5728Mathematica\:4e2d\:ff0c\:5185\:7f6e\:65e0\
\:610f\:4e49\:7684\:7b26\:53f7\[DifferentialD] / DifferentialD[]\:53ef\:4ee5\
\:7528\:6765\:8868\:793a\:5bf9\:5076\:5750\:6807\:57fa\:5e95\:ff0c\:6bd4\:5982\
\[DifferentialD]x\:6216Differential[x]\:ff0c\:5e76\:4e14\:4e0d\:4f1a\:62a5\
\:9519\:3002\n\n\:6839\:636e\:8fd9\:6837\:7684\:60c5\:51b5\:ff0c\:6211\:53d1\
\:73b0\:53e6\:4e00\:4e2a\:53ef\:4ee5\:8868\:793a\:5750\:6807\:57fa\:5e95\:7684\
\:7b80\:5355\:65b9\:6cd5\[LongDash]\[LongDash]\:4f7f\:7528\
\[CapitalDifferentialD] / CapitalDifferentialD[]\:3002\n\n\:4e0b\:9762\:6211\
\:901a\:8fc7\:4e00\:4e9b\:4f8b\:5b50\:6765\:8be6\:7ec6\:91cd\:8ff0\:4e00\:4e0b\
SpTm\:4e2d\:5982\:4f55\:8868\:793a\:5750\:6807\:57fa\:5e95\:548c\:5bf9\:5076\
\:5750\:6807\:57fa\:5e95.\n\n\:5047\:8bbe\:6211\:4eec\:5df2\:7ecf\:8bbe\:7f6e\
\:597d\:4e86\:5750\:6807\:7cfb{r, \[Theta], \[Phi]}\:3002\:90a3\:4e48\:5750\
\:6807\:57fa\:5e95\:4e3a\:ff1a\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[CapitalDifferentialD]", "r"}], ")"}], "a"], ",", " ", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDifferentialD]", "\[Theta]"}], ")"}], "a"], " ", 
     "and", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "a"]}]}], 
   TraditionalForm]],ExpressionUUID->"4351b4d8-e076-4f6e-92ce-204f99ed13dd"],
 ". "
}], "Text",
 CellChangeTimes->{{3.8864555414769807`*^9, 
  3.886455775103894*^9}},ExpressionUUID->"661bf792-bd4b-4e55-8715-\
5aa3022d60f8"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[CapitalDifferentialD]", "r"}], ")"}], "a"], ";", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[CapitalDifferentialD]", "\[Theta]"}], ")"}], "a"], ";", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "a"], ";"}]], "Code",
 CellChangeTimes->{
  3.8864557836641254`*^9},ExpressionUUID->"014f4e55-831f-471b-8bf3-\
55f2c2b4db2b"],

Cell[TextData[{
 "\n\:8f93\:5165 \[CapitalDifferentialD] \:7684\:65b9\:6cd5\:662f\:4f9d\:6b21\
\:6309\:4e0b \[EscapeKey]DD\[EscapeKey]. \:8f93\:5165 \[DifferentialD] \:7684\
\:65b9\:6cd5\:662f\:4f9d\:6b21\:6309\:4e0b \[EscapeKey]dd\[EscapeKey]. \n\n\
\:5bf9\:5076\:5750\:6807\:57fa\:5e95\:4e3a:\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"\[DifferentialD]", "r"}], ")"}], "a"], ",", " ", 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"\[DifferentialD]", "\[Theta]"}], ")"}], "a"], ",", " ", 
    RowBox[{"and", " ", 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"\[DifferentialD]", "\[Phi]"}], ")"}], "a"]}]}], 
   TraditionalForm]],ExpressionUUID->"f46d9afd-5bdb-47d2-ae3a-ef62d413e65e"]
}], "Text",
 CellChangeTimes->{{3.8864527635989704`*^9, 3.8864531946776843`*^9}, {
   3.886453243183522*^9, 3.8864532510271683`*^9}, {3.8864533341994457`*^9, 
   3.8864534368311925`*^9}, {3.8864534778004613`*^9, 
   3.8864535130813866`*^9}, {3.886453551428133*^9, 3.886453605598793*^9}, {
   3.8864536534400897`*^9, 3.886453686550798*^9}, {3.886453742814999*^9, 
   3.886453794236327*^9}, 3.8864538306649847`*^9, 3.8864538718596325`*^9, {
   3.8864558448504086`*^9, 
   3.8864558784434037`*^9}},ExpressionUUID->"e842e011-564b-4d07-b945-\
91372c57936c"],

Cell[BoxData[
 RowBox[{
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "r"}], ")"}], "a"], ";", " ", 
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "\[Theta]"}], ")"}], "a"], ";", " ", 
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "\[Phi]"}], ")"}], "a"], ";"}]], "Code",
 CellChangeTimes->{{3.8864538753638124`*^9, 3.8864538956993704`*^9}, 
   3.8864542068487024`*^9},ExpressionUUID->"287aacc0-e8e8-4aeb-86b5-\
7ef1c14cf6d1"],

Cell["\:4e00\:65e6\:4f60\:8bbe\:7f6e\:4e86\:5750\:6807\:7cfb\:ff0c\:5750\:6807\
\:57fa\:5e95\:548c\:5bf9\:5076\:5750\:6807\:57fa\:5e95\:5c06\:4f1a\:81ea\:52a8\
\:8bbe\:7f6e\:597d\:3002", "Text",
 CellChangeTimes->{{3.8864558899210787`*^9, 
  3.8864559076520243`*^9}},ExpressionUUID->"15ae11d0-1ffc-471f-ba5d-\
cbbb1e386686"],

Cell[BoxData[
 RowBox[{"SetCoordinates", "[", 
  RowBox[{"{", 
   RowBox[{"r", ",", " ", "\[Theta]", ",", " ", "\[Phi]"}], "}"}], 
  "]"}]], "Code",
 CellChangeTimes->{{3.886454261519162*^9, 3.8864543054185424`*^9}, {
  3.8864548126866407`*^9, 3.8864548138798094`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"2a9cb110-fa02-4b71-b04a-260445a41faa"],

Cell["\:4f60\:53ef\:4ee5\:7528STensorInfo\:6765\:67e5\:770b\:6bcf\:4e2a\:77e2\
\:91cf\:7684\:4fe1\:606f\:ff1a", "Text",
 CellChangeTimes->{{3.886454310801011*^9, 3.886454340957241*^9}, {
  3.886455931129835*^9, 
  3.8864559431299133`*^9}},ExpressionUUID->"21ddc75a-2f0b-4623-8130-\
f854214efbe9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"STensorInfo", "[", 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"\[DifferentialD]", "r"}], ")"}], "a"], "]"}], ",", 
   RowBox[{"STensorInfo", "[", 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"\[DifferentialD]", "\[Theta]"}], ")"}], "b"], "]"}], ",", 
   RowBox[{"STensorInfo", "[", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "a"], "]"}]}], 
  "}"}]], "Code",
 CellChangeTimes->{{3.886454343565345*^9, 3.8864544025262756`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"f7628190-f915-4548-9b5e-db58c8ccbe06"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox[
      RowBox[{"\[DifferentialD]", "r"}], "\[Alpha]"], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"1"}, {"0"}, {"0"}}, ColumnAlignments -> Center, 
          RowSpacings -> 1, ColumnAlignments -> Left], Column], "\[NoBreak]", 
        ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     SubscriptBox[
      RowBox[{"\[DifferentialD]", "\[Theta]"}], "\[Beta]"], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"0"}, {"1"}, {"0"}}, ColumnAlignments -> Center, 
          RowSpacings -> 1, ColumnAlignments -> Left], Column], "\[NoBreak]", 
        ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{
       RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], "\[Alpha]"}, 
      "Superscript", SyntaxForm -> SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"0"}, {"0"}, {"1"}}, ColumnAlignments -> Center, 
          RowSpacings -> 1, ColumnAlignments -> Left], Column], "\[NoBreak]", 
        ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8864543577218676`*^9, 3.88645436400583*^9}, 
   3.886454405011738*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"55b5c380-fea9-4e26-9d1e-4b7b87a2c8b0"]
}, Open  ]],

Cell[TextData[{
 "\:6709\:4ef6\:5f88\:91cd\:8981\:7684\:4e8b\:662f\[LongDash]\[LongDash] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"\[DifferentialD]", "x"}], ")"}], "a"], "\:548c", " ", 
    RowBox[{"\[DifferentialD]", 
     SubscriptBox["x", "a"]}]}], TraditionalForm]],ExpressionUUID->
  "48eff853-bffc-4c2f-b902-83614e3a44f8"],
 "\:662f\:4e0d\:540c\:7684\:3002\:4f60\:53ef\:4ee5\:7528FullForm\:6765\:770b\
\:ff1a"
}], "Text",
 CellChangeTimes->{{3.886454412095498*^9, 3.8864544715739937`*^9}, {
  3.8864559457885485`*^9, 
  3.8864560577659917`*^9}},ExpressionUUID->"6198f148-42ae-42e4-85b2-\
4db02a5094ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[DifferentialD]", 
   SubscriptBox["x", "a"]}], "//", "FullForm"}]], "Code",
 CellChangeTimes->{{3.886454478293972*^9, 3.886454513508134*^9}, {
  3.886454745703595*^9, 3.8864547513765984`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"b3f2adbd-30a9-4a7f-9412-c484547dd7ed"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"DifferentialD", "[", 
    RowBox[{"Subscript", "[", 
     RowBox[{"x", ",", "a"}], "]"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{{3.886454494550229*^9, 3.8864545141420283`*^9}, 
   3.886454751720688*^9},
 CellLabel->
  "Out[10]//FullForm=",ExpressionUUID->"30b82e63-cb54-4e81-bcdf-327613484456"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "x"}], ")"}], "a"], "//", 
  "FullForm"}]], "Code",
 CellChangeTimes->{{3.886454523045596*^9, 3.886454531844965*^9}, {
  3.886454753106345*^9, 3.886454757811619*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"f27fb8d4-d92f-46e0-a723-2ee51bfb24d3"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Subscript", "[", 
    RowBox[{
     RowBox[{"DifferentialD", "[", "x", "]"}], ",", "a"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.886454533724828*^9, 3.8864547581543694`*^9},
 CellLabel->
  "Out[11]//FullForm=",ExpressionUUID->"14290ca0-64ad-4790-a8a6-5a6b1224c0c1"]
}, Open  ]],

Cell["\:4e24\:4e2a\:8868\:8fbe\:5f0f\:7684\:6807\:5934\:662f\:4e0d\:540c\:7684\
\:3002\:6309\:6211\:4eec\:7684\:7406\:89e3\:ff0c\[DifferentialD]x\:662f\:77e2\
\:91cf\:ff0c\:800ca\:662f\:5b83\:7684\:6307\:6807\:3002\:56e0\:6b64\:7b2c\
\:4e8c\:79cd\:5f62\:5f0f\:662f\:6b63\:786e\:7684\:3002\:8bb0\:4f4f\:8fd9\:4e00\
\:70b9\:3002\:5bf9\:4e8e\[CapitalDifferentialD]x\:4e5f\:4e00\:6837\:3002", \
"Text",
 CellChangeTimes->{{3.886454539729439*^9, 3.8864546096036034`*^9}, {
  3.886454764943221*^9, 3.8864547919242916`*^9}, {3.886456066347207*^9, 
  3.8864561115878797`*^9}},ExpressionUUID->"67872174-f20e-42bb-bef3-\
4500b9a9e689"],

Cell[CellGroupData[{

Cell["\:8bbe\:7f6e\:5ea6\:89c4", "Subsubsection",
 CellChangeTimes->{{3.886454851442195*^9, 3.8864548531052904`*^9}, 
   3.886456118315936*^9},ExpressionUUID->"555bcd6d-ae97-4b75-934b-\
f672072d0d3e"],

Cell[TextData[{
 "\:73b0\:5728\:6211\:4eec\:7528 ",
 "SetMetric",
 StyleBox[" ",
  FontWeight->"Bold"],
 "\:6765\:8bbe\:7f6e\:6d41\:5f62\:4e0a\:7684\:5ea6\:89c4\:573a\:ff1a"
}], "Text",
 CellChangeTimes->{{3.886454854333443*^9, 3.8864548625478363`*^9}, {
  3.8864549665009756`*^9, 3.8864550290851707`*^9}, {3.8864561236985283`*^9, 
  3.8864561416736064`*^9}},ExpressionUUID->"2976e64c-2e51-4365-8cf6-\
851c5bec47dc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetMetric", "[", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", 
      RowBox[{"r", "^", "2"}], ",", " ", 
      RowBox[{
       RowBox[{"r", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}], "]"}], 
   "]"}], ";"}]], "Code",
 CellChangeTimes->{{3.886455030294011*^9, 3.8864550537491846`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"dd7674b9-15bf-4974-9423-30b234c8a22b"],

Cell["\<\
\:5982\:679c\:4f60\:5df2\:7ecf\:8bbe\:7f6e\:4e86\:5750\:6807\:7cfb\:ff0c\:4f60\
\:53ef\:4ee5\:76f4\:63a5\:6267\:884c\:4e0a\:9762\:7684\:547d\:4ee4\:3002
\:6216\:8005\:ff0c\:4f60\:53ef\:4ee5\:50cf\:4e0b\:9762\:8fd9\:6837\:540c\:65f6\
\:8bbe\:7f6e\:5ea6\:89c4\:548c\:5750\:6807\:7cfb\:ff1a\
\>", "Text",
 CellChangeTimes->{{3.886455083638074*^9, 3.8864551322453976`*^9}, {
  3.886456145297283*^9, 
  3.886456180851418*^9}},ExpressionUUID->"ea0ca808-1fd9-439e-a000-\
c8fb5f2c7142"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetMetric", "[", 
   RowBox[{
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", 
       RowBox[{"r", "^", "2"}], ",", " ", 
       RowBox[{
        RowBox[{"r", "^", "2"}], " ", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}], "]"}], 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", " ", "\[Theta]", ",", " ", "\[Phi]"}], "}"}]}], "]"}], 
  ";"}]], "Code",
 CellChangeTimes->{{3.886455056903407*^9, 3.8864550754924145`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"f9203a9d-a278-43be-ae0b-822793512356"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4f8b\:5b50", "Section",
 CellChangeTimes->{{3.8864561910391083`*^9, 
  3.886456199689496*^9}},ExpressionUUID->"47219a87-737a-4bed-ab6e-\
73e491fb1994"],

Cell["\:4e0b\:9762\:4ecb\:7ecd\:4e00\:4e9b\:5173\:4e8e\:5177\:4f53\:6307\:6807\
\:8fd0\:7b97\:7684\:4f8b\:5b50\:ff0c\:5206\:4e3a\:4e0d\:540c\:6d41\:5f62\:4e0a\
\:7684\:5ea6\:89c4\:6765\:4ecb\:7ecd\:ff1a", "Text",
 CellChangeTimes->{{3.883509626754271*^9, 
  3.883509669627688*^9}},ExpressionUUID->"7cb567fb-7ba7-42fd-95b2-\
1dd8111b8df5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4e8c\:7ef4\:6b27\:5f0f\:5ea6\:89c4 2-D Euclidean Metric", "Section",
 CellChangeTimes->{{3.8830044112686253`*^9, 3.883004464738123*^9}, {
  3.8832062339354715`*^9, 3.883206241154865*^9}, {3.883335497708171*^9, 
  3.8833355338775997`*^9}},ExpressionUUID->"40a40f9a-2726-4091-a0ac-\
880d37a267f4"],

Cell[CellGroupData[{

Cell[TextData[{
 "\:8bbe\:7f6e",
 StyleBox["\:5ea6\:89c4\:5206",
  FontFamily->"Bernard MT"],
 "\:91cf\:53ca\:5750\:6807\:7cfb"
}], "Subsection",
 CellChangeTimes->{{3.8832099782795753`*^9, 3.883209996116438*^9}, {
  3.883264958713993*^9, 3.883264961216628*^9}, {3.883509690365614*^9, 
  3.883509691544561*^9}},ExpressionUUID->"2b50e99e-85a6-4d22-b558-\
82889407af93"],

Cell[BoxData[
 RowBox[{"SetMetric", "[", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8830044666321135`*^9, 3.883004491749297*^9}, 
   3.883265015075651*^9, {3.883265063636698*^9, 3.883265067889442*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"4c0176ed-f12a-4141-8286-863b36329f2d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8bbe\:7f6e\:5f20\:91cf\:5206\:91cf", "Subsection",
 CellChangeTimes->{{3.883209982935665*^9, 
  3.8832100007822266`*^9}},ExpressionUUID->"4cabbc8c-8cf0-4809-8c62-\
41870e3662d4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetTensor", "[", 
    RowBox[{
     SuperscriptBox["v", "a"], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "\:62bd\:8c61\:6307\:6807\:8868\:793a", "\:ff0c", 
    "\:6307\:6807\:7684\:5b57\:6bcd\:4e0d\:91cd\:8981", "\:ff0c", 
    "\:4f46\:4e0d\:80fd\:91cd\:590d"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetTensor", "[", 
    RowBox[{
     RowBox[{"STensor", "[", 
      RowBox[{"w", ",", 
       RowBox[{"{", "a", "}"}], ",", 
       RowBox[{"{", "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ";"}], 
  RowBox[{
  "(*", "\:91c7\:7528STensor\:5f62\:5f0f", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["u", "a"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "y"}], ",", "x"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8830060412636366`*^9, 3.8830060818908296`*^9}, {
  3.883210017403228*^9, 3.883210051076173*^9}, {3.884986753843622*^9, 
  3.884986755508892*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"2511865f-9a73-48c9-9738-1ae4b269a7b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STensorInfo", "/@", 
  RowBox[{"{", 
   RowBox[{"v", ",", "w", ",", "u", ",", "g"}], "}"}], 
  RowBox[{
  "(*", "\:83b7\:53d6\:5f20\:91cf\:7684\:5206\:91cf\:4fe1\:606f", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.8830060999550877`*^9, 3.8830061178009577`*^9}, {
  3.883006295022601*^9, 3.8830062952111187`*^9}, {3.883210055042825*^9, 
  3.8832100647077837`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"14010031-63e0-427a-9e55-13efb47242f9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"v", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          
          GridBox[{{"1"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
           1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    TemplateBox[{
      SubscriptBox["w", 
       TemplateBox[{"\[Alpha]"}, "RowDefault"]], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          
          GridBox[{{"0"}, {"1"}}, ColumnAlignments -> Center, RowSpacings -> 
           1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"u", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          GridBox[{{
             RowBox[{"-", "y"}]}, {"x"}}, RowSpacings -> 1, ColumnAlignments -> 
           Center, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
       SubscriptBox["g", 
        TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
       TagBox[
        RowBox[{"(", "\[NoBreak]", 
          
          GridBox[{{"1", "0"}, {"0", "1"}}, RowSpacings -> 1, ColumnSpacings -> 
           1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
          "\[NoBreak]", ")"}], 
        Function[BoxForm`e$, 
         MatrixForm[BoxForm`e$]]]},
      "RowDefault"], ",", 
     TemplateBox[{
       TemplateBox[{"g", 
         TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]}, "Superscript", 
        SyntaxForm -> SuperscriptBox], "\"=\"", 
       TagBox[
        RowBox[{"(", "\[NoBreak]", 
          
          GridBox[{{"1", "0"}, {"0", "1"}}, RowSpacings -> 1, ColumnSpacings -> 
           1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
          "\[NoBreak]", ")"}], 
        Function[BoxForm`e$, 
         MatrixForm[BoxForm`e$]]]},
      "RowDefault"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.883006142363324*^9, {3.8830062956888433`*^9, 3.883006310530299*^9}, 
   3.8831213376166472`*^9, 3.8840697400535507`*^9, 3.884069955193372*^9, 
   3.884070068577258*^9, 3.8921911230597734`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"848b3e8f-bfb1-4f16-8e70-c9218b3c2fb5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5750\:6807\:53d8\:6362", "Subsection",
 CellChangeTimes->{{3.883210071607215*^9, 
  3.8832100812606006`*^9}},ExpressionUUID->"ab0ae260-0d80-454a-87d8-\
99a522f87f1c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SCoordinatesTransform", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"r", ",", "\[Phi]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "->", 
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ",", 
      RowBox[{"y", "->", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}]}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8830060008671675`*^9, 3.883006035191802*^9}, 
   3.883006187331937*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"cfffa7a2-db6a-436e-8b4a-b1771d3eb1b0"],

Cell["\:7b2c\:4e8c\:4e2a\:53c2\:6570\:4e3a\:5750\:6807\:7cfb\:53d8\:5316\:89c4\
\:5219\:ff0c\:683c\:5f0f\:4e3a{ \:539f\:5750\:6807\:7cfb\:7b26\:53f7->\:76ee\
\:6807\:5750\:6807\:7cfb\:7684\:8868\:8fbe\:5f0f }", "Text",
 CellChangeTimes->{{3.883210092170792*^9, 
  3.883210133853902*^9}},ExpressionUUID->"122d86ab-77c7-47b7-aad5-\
a16e8a8534cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STensorInfo", "/@", 
  RowBox[{"{", 
   RowBox[{"v", ",", "w", ",", "u", ",", "g"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8830061619954205`*^9, 3.883006167969554*^9}, {
  3.883006299720595*^9, 3.8830062999309063`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"2c421eef-05f4-4eae-b215-fef9975e173d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"v", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          GridBox[{{
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}, {
             RowBox[{"-", 
               FractionBox[
                RowBox[{"Sin", "[", "\[Phi]", "]"}], "r"]}]}}, RowSpacings -> 
           1, ColumnAlignments -> Center, ColumnAlignments -> Left], Column], 
         "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    TemplateBox[{
      SubscriptBox["w", 
       TemplateBox[{"\[Alpha]"}, "RowDefault"]], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          GridBox[{{
             RowBox[{"Sin", "[", "\[Phi]", "]"}]}, {
             RowBox[{"r", " ", 
               RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}}, RowSpacings -> 1, 
           ColumnAlignments -> Center, ColumnAlignments -> Left], Column], 
         "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"u", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          
          GridBox[{{"0"}, {"1"}}, ColumnAlignments -> Center, RowSpacings -> 
           1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
       SubscriptBox["g", 
        TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
       TagBox[
        RowBox[{"(", "\[NoBreak]", 
          GridBox[{{"1", "0"}, {"0", 
             SuperscriptBox["r", "2"]}}, RowSpacings -> 1, ColumnSpacings -> 
           1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
          "\[NoBreak]", ")"}], 
        Function[BoxForm`e$, 
         MatrixForm[BoxForm`e$]]]},
      "RowDefault"], ",", 
     TemplateBox[{
       TemplateBox[{"g", 
         TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]}, "Superscript", 
        SyntaxForm -> SuperscriptBox], "\"=\"", 
       TagBox[
        RowBox[{"(", "\[NoBreak]", 
          GridBox[{{"1", "0"}, {"0", 
             FractionBox["1", 
              SuperscriptBox["r", "2"]]}}, RowSpacings -> 1, ColumnSpacings -> 
           1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
          "\[NoBreak]", ")"}], 
        Function[BoxForm`e$, 
         MatrixForm[BoxForm`e$]]]},
      "RowDefault"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8830061831133213`*^9, {3.883006300405592*^9, 3.8830063138902507`*^9}, 
   3.884069742246623*^9, 3.884069957995432*^9, 3.8840700721085367`*^9, 
   3.8921911254668455`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"da716be9-9eb6-4a18-97f3-fb6ce0509d7d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:5750\:6807\:57fa\:5e95\:7684\:5bf9\:6613\:6027", \
"Subsection",
 CellChangeTimes->{{3.884069416480444*^9, 3.8840694339905243`*^9}, {
  3.884070262225246*^9, 
  3.884070281793264*^9}},ExpressionUUID->"b711ed81-3080-4a2c-b579-\
534476d4c38e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"SetTensor", "[", 
     RowBox[{
      SuperscriptBox["u", "a"], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"SetTensor", "[", 
     RowBox[{
      SuperscriptBox["v", "a"], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetTensor", "[", 
     RowBox[{
      SuperscriptBox["w", "a"], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "/", "r"}]}], "}"}]}], "]"}], ";"}], 
   RowBox[{
   "(*", "\:6b63\:4ea4\:5f52\:4e00\:57fa\:5e95\:4e0d\:4e00\:5b9a\:662f\:5bf9\
\:6613\:7684", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.884069381570082*^9, 3.8840694094077044`*^9}, {
   3.884069439966715*^9, 3.8840694879448233`*^9}, {3.8840700481767735`*^9, 
   3.8840700495907974`*^9}, 3.8852660057421265`*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"aac9ed9e-6f18-4491-8929-77a60386fb40"],

Cell["{u,v}\:4e3a\:4e00\:7ec4\:5750\:6807\:57fa\:5e95\:ff0c{w,v}\:4e3a\:4e00\
\:7ec4\:6b63\:4ea4\:5f52\:4e00\:57fa\:5e95", "Text",
 CellChangeTimes->{{3.8840694924473314`*^9, 3.8840695222802887`*^9}, {
  3.8840700540751*^9, 
  3.884070055685357*^9}},ExpressionUUID->"22dc37b8-cf6c-4e73-8c9b-\
9ea364699f55"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"STCalcComponents", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["u", "b"], 
       RowBox[{
        SubscriptBox["\[Del]", "b"], 
        SuperscriptBox["v", "a"]}]}], "-", 
      RowBox[{
       SuperscriptBox["v", "b"], 
       RowBox[{
        SubscriptBox["\[Del]", "b"], 
        SuperscriptBox["u", "a"]}]}]}], "]"}], ",", 
    RowBox[{"STCalcComponents", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["w", "b"], 
       RowBox[{
        SubscriptBox["\[Del]", "b"], 
        SuperscriptBox["v", "a"]}]}], "-", 
      RowBox[{
       SuperscriptBox["v", "b"], 
       RowBox[{
        SubscriptBox["\[Del]", "b"], 
        SuperscriptBox["w", "a"]}]}]}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.884069532885516*^9, 3.88406957795773*^9}, {
  3.8840697668182683`*^9, 3.884069864486471*^9}, {3.884070086466875*^9, 
  3.88407013835688*^9}, {3.892191141327106*^9, 3.8921911425728836`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"00bf0f69-856b-40e6-ab0d-985ea8b40b5a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     TemplateBox[{"\[ScriptCapitalT]", 
       TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
      SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 1,
           ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{"\[ScriptCapitalT]", 
       TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
      SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"0"}, {
            FractionBox["1", 
             SuperscriptBox["r", "2"]]}}, RowSpacings -> 1, ColumnAlignments -> 
          Center, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.884070138730392*^9, {3.892191128105938*^9, 3.892191145313961*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[23]:=",ExpressionUUID->"71935ca0-ae48-456a-a355-\
575de841e294"]
}, Open  ]],

Cell["\:8ba1\:7b97\:6a21\:957f\:7684\:5e73\:65b9\:ff0c\:9a8c\:8bc1{v,w}\:662f\
\:5f52\:4e00\:7684", "Text",
 CellChangeTimes->{{3.884069641525875*^9, 3.8840696769002485`*^9}, {
  3.8852660610828114`*^9, 
  3.8852660620087657`*^9}},ExpressionUUID->"fc9caaa6-84f4-4edc-bcdb-\
c95240f09d3d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"STCalcComponents", "[", 
    RowBox[{
     SubscriptBox["g", "ab"], 
     SuperscriptBox["#", "a"], 
     SuperscriptBox["#", "b"]}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"v", ",", "u", ",", "w"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.884070150785203*^9, 3.8840701523542643`*^9}, 
   3.892191142590987*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"6cae33b6-4eb6-4e82-83d8-946535e8fa07"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"\[ScriptCapitalT]", "\"=\"", 
     TagBox["1", 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{"\[ScriptCapitalT]", "\"=\"", 
     TagBox[
      SuperscriptBox["r", "2"], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{"\[ScriptCapitalT]", "\"=\"", 
     TagBox["1", 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8840700003227177`*^9, {3.8840701451537743`*^9, 3.8840701525921893`*^9}, 
   3.8921911488530674`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"ba8d985e-5b0c-4a2f-b9f6-7226d637d54b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:67f1\:9762\:5ea6\:89c4 Cylinder Metric", "Section",
 CellChangeTimes->{{3.8820859554415746`*^9, 3.8820859641985097`*^9}, {
  3.8820861584578657`*^9, 
  3.8820861630766687`*^9}},ExpressionUUID->"d4154b68-bc71-48f8-98b3-\
52564578e858"],

Cell[BoxData[
 RowBox[{"SetMetric", "[", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      SuperscriptBox["R", "2"]}], "}"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"z", ",", " ", "\[Phi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8820859758025384`*^9, 3.882086016848547*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"c4133df8-0af8-421e-a348-24c5b321f2ec"],

Cell[CellGroupData[{

Cell["\:5c06\:62bd\:8c61\:6307\:6807\:8868\:8fbe\:5f0f\:8f6c\:5316\:4e3a\:5177\
\:4f53\:6307\:6807\:8868\:8fbe\:5f0f\:5e76\:8ba1\:7b97\:5206\:91cf", \
"Subsection",
 CellChangeTimes->{{3.8832101492043486`*^9, 
  3.8832101629957633`*^9}},ExpressionUUID->"f48d10e0-4b28-4dea-bc53-\
644381045d09"],

Cell["\:8fd9\:91cc\:8ba1\:7b97\:7684\:662f\:6d4b\:5730\:7ebf\:65b9\:7a0b\:ff0c\
\:9a8c\:8bc1\:67f1\:9762\:4e0a\:7684\:6bcd\:7ebf\:548c\:5706\:5468\:662f\:6d4b\
\:5730\:7ebf.", "Text",
 CellChangeTimes->{{3.88321016792505*^9, 
  3.8832102266822567`*^9}},ExpressionUUID->"43d726b8-cf6e-4fc1-b1de-\
e3d59c88603e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"STCalcComponents", "[", "#", "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDifferentialD]", "z"}], ")"}], "a"], 
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[CapitalDifferentialD]", "z"}], ")"}], "b"]}]}], ",", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "a"], 
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "b"]}]}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.8820899925966244`*^9, 3.882090008702795*^9}, {
   3.882090109770848*^9, 3.8820901470924053`*^9}, {3.886469266711206*^9, 
   3.8864693000477257`*^9}, 3.892191142596939*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"4d1797ac-c62e-40c9-9802-b4f0ddcb0472"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     TemplateBox[{"\[ScriptCapitalT]", 
       TemplateBox[{"\[Beta]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
      SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 1,
           ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{"\[ScriptCapitalT]", 
       TemplateBox[{"\[Beta]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
      SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[
         GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 1,
           ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{{3.882090065404399*^9, 3.8820900733102174`*^9}, {
   3.882090133194539*^9, 3.882090147561858*^9}, 3.882216831927069*^9, 
   3.882216874567032*^9, 3.882243919822688*^9, 3.883604592389883*^9, {
   3.8864692818213744`*^9, 3.886469300765981*^9}, 3.892191151907709*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"488e1850-744d-4184-ae8d-85ad83257b0e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:5f53\:524d\:5750\:6807\:7cfb\:4e0b\:7684\:514b\:6c0f\:7b26\
\:5206\:91cf Christoffel Symbol", "Subsection",
 CellChangeTimes->{{3.8832102707368574`*^9, 
  3.883210298010242*^9}},ExpressionUUID->"421a18a8-82a6-4f35-8bef-\
1c0be906e88d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8820860213216224`*^9, 3.8820860279379683`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"2a63c7ca-d4c1-4aff-a53f-fbf8ac19c65c"],

Cell[BoxData[
 TemplateBox[{
   TemplateBox[{
     SubscriptBox["\"\[CapitalGamma]\"", 
      TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], 
     TemplateBox[{"\"\[Sigma]\""}, "RowDefault"]}, "Superscript", SyntaxForm -> 
    SuperscriptBox], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            
            GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
             1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            
            GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
             1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            
            GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
             1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            
            GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
             1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}}, 
       RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
       ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{3.8820860372026944`*^9, 3.8836045937770777`*^9, 
  3.8921911531542*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"be08e063-cb38-46d7-b1a6-1a1930843c24"]
}, Open  ]],

Cell["\<\
So Riemann Tensor, Ricci Tensor, Ricci Scalar all vanish. The intrinsic \
curvature is null but the extrinsic curvature exists.
\:56e0\:6b64\:9ece\:66fc\:5f20\:91cf\:3001\:91cc\:5947\:5f20\:91cf\:548c\:91cc\
\:5947\:6807\:91cf\:90fd\:5168\:4e3a\:96f6\:3002\:5185\:7980\:66f2\:7387\:4e3a\
\:96f6\:4f46\:5916\:66f2\:7387\:4e0d\:4e3a\:96f6\:3002\
\>", "Text",
 CellChangeTimes->{{3.882086038710498*^9, 3.882086151276141*^9}, {
  3.883177094215783*^9, 3.883177115744501*^9}, {3.883177243714777*^9, 
  3.883177267116413*^9}, {3.8831773519254785`*^9, 3.883177411555395*^9}, {
  3.883209598791295*^9, 
  3.8832096285874257`*^9}},ExpressionUUID->"b3c04a52-daba-496d-8578-\
4903145f95ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:7ebf\:5143\:8868\:8fbe\:5f0f", "Subsection",
 CellChangeTimes->{{3.8832096638179016`*^9, 
  3.8832096656281843`*^9}},ExpressionUUID->"b3b6393a-c496-4840-b730-\
5ab9cd6d222f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SLineElement", "[", "]"}]], "Input",
 CellChangeTimes->{{3.882243948263255*^9, 3.882243958421509*^9}, {
  3.8864693476651955`*^9, 3.886469349624839*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"f9cdd3b4-f170-4396-bb74-7863fae18cf6"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "z"}], ")"}], "2"], "+", 
  RowBox[{
   SuperscriptBox["R", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "\[Phi]"}], ")"}], "2"]}]}]], "Output",
 CellChangeTimes->{3.882243963677952*^9, 3.882778237364611*^9, 
  3.8836045975738344`*^9, 3.8864693501170754`*^9, 3.8921911549954977`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"6c96e620-fcb8-401c-b9e7-79ef0a2578d0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5728\:5408\:6cd5\:5750\:6807\:7cfb\:8303\:56f4\:5185\:8ba1\:7b97\:4f53\
\:5143", "Subsection",
 CellChangeTimes->{{3.8832096459876504`*^9, 3.883209653776602*^9}, {
  3.8832103089992447`*^9, 
  3.8832103160697513`*^9}},ExpressionUUID->"5975062f-3d29-49e2-90f7-\
7bf2613ad867"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Refine", "[", 
  RowBox[{
   RowBox[{"SVolumeElement", "[", "]"}], ",", 
   RowBox[{"R", ">=", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8827782393912396`*^9, 3.8827782795388613`*^9}, 
   3.8832096579196234`*^9, {3.8864693427366023`*^9, 3.886469345180355*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"e0384c47-0e93-443a-be6a-8b8daf48eb8d"],

Cell[BoxData[
 RowBox[{"R", " ", 
  RowBox[{
   SubscriptBox[
    RowBox[{"\[DifferentialD]", "z"}], "a"], "\[Wedge]", 
   SubscriptBox[
    RowBox[{"\[DifferentialD]", "\[Phi]"}], "b"]}]}]], "Output",
 CellChangeTimes->{{3.8827782534882746`*^9, 3.8827782801680965`*^9}, {
   3.882778459467145*^9, 3.882778463835163*^9}, 3.88360459884634*^9, 
   3.8864693454998417`*^9, 3.8921911572459097`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"a33a1bbe-b28a-42d5-9df1-6a2c0d2eb555"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:4e8c\:7ef4\:7403\:9762\:5ea6\:89c4 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["S", "2"], TraditionalForm]],ExpressionUUID->
  "5c9cabdf-fea9-4de0-af83-06af146ff403"],
 " Sphere Metric"
}], "Section",
 CellChangeTimes->{{3.882086166178772*^9, 3.8820862065635595`*^9}, {
  3.883264954561884*^9, 
  3.88326495667353*^9}},ExpressionUUID->"13a82c57-1311-4633-908c-\
e568dcaa7d2c"],

Cell[BoxData[
 RowBox[{"SetMetric", "[", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox["R", "2"], 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", 
      SuperscriptBox["R", "2"]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", " ", "\[Theta]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8819773837058754`*^9, 3.8819773923968325`*^9}, {
  3.881988330154621*^9, 3.881988353508728*^9}, {3.8819948453290796`*^9, 
  3.8819948525921936`*^9}, {3.8820769944238267`*^9, 3.882077020632283*^9}, {
  3.882077129882243*^9, 3.882077146132949*^9}, {3.882077251763857*^9, 
  3.8820773139374924`*^9}, {3.8820773545117064`*^9, 3.8820774169766006`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"4199665b-5dd7-4639-b6fc-dc08267433f9"],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:514b\:6c0f\:7b26\:5e76\:8bbe\:7f6e\:514b\:6c0f\:7b26\:5f20\
\:91cf", "Subsection",
 CellChangeTimes->{{3.8822443058984227`*^9, 
  3.8822443149750185`*^9}},ExpressionUUID->"d2030c6f-88f4-4267-8edb-\
2f8df55ee317"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.881994908030297*^9, 3.881994919785594*^9}, {
  3.8822440051404715`*^9, 3.8822440275500097`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"95888753-d087-4b5a-a048-793318a85902"],

Cell[BoxData[
 TemplateBox[{
   TemplateBox[{
     SubscriptBox["\"\[CapitalGamma]\"", 
      TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], 
     TemplateBox[{"\"\[Sigma]\""}, "RowDefault"]}, "Superscript", SyntaxForm -> 
    SuperscriptBox], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            GridBox[{{"0"}, {
               RowBox[{
                 RowBox[{"-", 
                   RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
                 RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}}, RowSpacings -> 1, 
             ColumnAlignments -> Center, ColumnAlignments -> Left], Column], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            GridBox[{{
               RowBox[{"Cot", "[", "\[Theta]", "]"}]}, {"0"}}, RowSpacings -> 
             1, ColumnAlignments -> Center, ColumnAlignments -> Left], 
            Column], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            GridBox[{{
               RowBox[{"Cot", "[", "\[Theta]", "]"}]}, {"0"}}, RowSpacings -> 
             1, ColumnAlignments -> Center, ColumnAlignments -> Left], 
            Column], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           TagBox[
            
            GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
             1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}}, 
       RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
       ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.882244028144251*^9, 3.882244114168403*^9, {3.8832002826252785`*^9, 
   3.8832002917976527`*^9}, 3.8850679631955566`*^9, 3.885191815261022*^9, {
   3.885260667228999*^9, 3.8852606755738583`*^9}, 3.892191160184763*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"a0d138c4-ea39-4c16-bd83-7019a3104dc7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SetTensor", "[", 
  RowBox[{
   RowBox[{"STensor", "[", 
    RowBox[{"\[CapitalGamma]", ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", "c", "}"}]}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8822440347526436`*^9, 3.882244089128203*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"b3137b32-979d-47ff-ba33-a75712a4354c"],

Cell["\:8fd9\:91cc\:8865\:5145\:4e00\:53e5\[LongDash]\[LongDash]\:5bf9\:4e8e\
\:4e0a\:8ff0\:8fd9\:79cd\:5f62\:5f0f\:7684\:8fd4\:56de\:7ed3\:679c\:ff0c\:53ef\
\:4ee5\:4f7f\:7528FullForm\:6765\:67e5\:770b\:5176\:8868\:8fbe\:5f0f\:7684\
\:5b8c\:6574\:7ed3\:6784\:3002", "Text",
 CellChangeTimes->{{3.8852604307773085`*^9, 3.8852604583971343`*^9}, {
  3.8852605515556498`*^9, 
  3.885260552824811*^9}},ExpressionUUID->"ffff4e7f-d70c-4b3a-b9e4-\
6f6a3d091d44"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}], "//", 
  "FullForm"}]], "Input",
 CellChangeTimes->{{3.8852605543319817`*^9, 3.8852605551269655`*^9}, {
  3.885260678790023*^9, 3.885260681258532*^9}, {3.88526073325277*^9, 
  3.885260757802824*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"6f4b6ff8-0ca8-4db7-b72c-47b83ec74e52"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Row", "[", 
    RowBox[{"List", "[", 
     RowBox[{
      RowBox[{"Superscript", "[", 
       RowBox[{
        RowBox[{"Subscript", "[", 
         RowBox[{"\"\<\\[CapitalGamma]\>\"", ",", 
          RowBox[{"Row", "[", 
           RowBox[{"List", "[", 
            RowBox[{"\"\<\\[Mu]\>\"", ",", "\"\<\\[Nu]\>\""}], "]"}], "]"}]}],
          "]"}], ",", 
        RowBox[{"Row", "[", 
         RowBox[{"List", "[", "\"\<\\[Sigma]\>\"", "]"}], "]"}]}], "]"}], 
      ",", "\"\<=\>\"", ",", 
      RowBox[{"MatrixForm", "[", 
       RowBox[{"List", "[", 
        RowBox[{
         RowBox[{"List", "[", 
          RowBox[{
           RowBox[{"List", "[", 
            RowBox[{"0", ",", 
             RowBox[{"Times", "[", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"Cos", "[", "\\[Theta]", "]"}], ",", 
               RowBox[{"Sin", "[", "\\[Theta]", "]"}]}], "]"}]}], "]"}], ",", 
           RowBox[{"List", "[", 
            RowBox[{
             RowBox[{"Cot", "[", "\\[Theta]", "]"}], ",", "0"}], "]"}]}], 
          "]"}], ",", 
         RowBox[{"List", "[", 
          RowBox[{
           RowBox[{"List", "[", 
            RowBox[{
             RowBox[{"Cot", "[", "\\[Theta]", "]"}], ",", "0"}], "]"}], ",", 
           RowBox[{"List", "[", 
            RowBox[{"0", ",", "0"}], "]"}]}], "]"}]}], "]"}], "]"}]}], "]"}], 
    "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.885260681510504*^9, {3.885260736638673*^9, 3.8852607581021304`*^9}, 
   3.892191163250598*^9},
 CellLabel->
  "Out[33]//FullForm=",ExpressionUUID->"28293642-7b08-405a-a67f-07ca83eeff99"]
}, Open  ]],

Cell["\:8fd4\:56de\:7684\:8868\:8fbe\:5f0f\:5177\:6709Row\:6807\:5934\:ff0c\
\:901a\:8fc7[[1]]\:53ef\:4ee5\:5c06\:5f97\:5230\:5982\:4e0b\:7ed3\:679c:", \
"Text",
 CellChangeTimes->{{3.885260685932337*^9, 3.885260706748468*^9}, {
  3.8852607619427137`*^9, 
  3.8852607862440624`*^9}},ExpressionUUID->"043a48cb-bdc5-482f-99d3-\
8bd0f8b3fe9a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.885260786873967*^9, 3.8852607895914583`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"70e56b49-4e85-46fd-9dca-bfb037e086a9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox["\"\[CapitalGamma]\"", 
      TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], 
     TemplateBox[{"\"\[Sigma]\""}, "RowDefault"]},
    "Superscript"], ",", "\<\"=\"\>", ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {"0"},
            {
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
              RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             RowBox[{"Cot", "[", "\[Theta]", "]"}]},
            {"0"}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          Column], "\[NoBreak]", ")"}]},
       {
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {
             RowBox[{"Cot", "[", "\[Theta]", "]"}]},
            {"0"}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          Column], "\[NoBreak]", ")"}], 
        RowBox[{"(", "\[NoBreak]", 
         TagBox[GridBox[{
            {"0"},
            {"0"}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          Column], "\[NoBreak]", ")"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{3.885260790088171*^9, 3.892191164683366*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"e62a9d8f-b6f2-420f-9a69-823eebdfc376"]
}, Open  ]],

Cell["\<\
\:8be5\:5217\:8868\:662f\:5305\:542b\:4e09\:4e2a\:90e8\:5206\[LongDash]\
\[LongDash]\:5f20\:91cf\:8868\:8fbe\:5f0f\:3001\:7b49\:53f7\:4ee5\:53ca\:5206\
\:91cf\:3002
\:4e3a\:4e86\:663e\:793a\:7684\:65b9\:4fbf\:ff0c\:5206\:91cf\:7684\:901a\:8fc7\
\:6807\:5934MatrixForm\:8fdb\:884c\:4e86\:5305\:88c5\:3002\:56e0\:6b64\:9700\
\:8981\:518d\:4f7f\:7528\:4e00\:5c42[[1]]\:6765\:83b7\:53d6\:5206\:91cf\:6570\
\:7ec4\:3002\
\>", "Text",
 CellChangeTimes->{{3.8852607940668936`*^9, 3.8852608811792145`*^9}, 
   3.8852624006263494`*^9, {3.8852625066139097`*^9, 
   3.885262508103029*^9}},ExpressionUUID->"197ce006-edd0-43a7-95db-\
71e85ce107b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "3"}], "]"}], "]"}], "//", "Head"}]], "Input",
 CellChangeTimes->{{3.8852608874548287`*^9, 3.885260893154436*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"0cc4d60c-a536-4dfd-b475-413a99f75bc2"],

Cell[BoxData["MatrixForm"], "Output",
 CellChangeTimes->{{3.8852608885761776`*^9, 3.8852608934980483`*^9}, 
   3.8921911662508855`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"578ec0b4-209d-4435-9570-1dfd06fe6ed5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcTensor", "[", "\"\<Christoffel\>\"", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.885260898784131*^9, 3.885260900995697*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"ef1927e6-e348-4f18-9a79-c27e29f3353f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cot", "[", "\[Theta]", "]"}], ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cot", "[", "\[Theta]", "]"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8852609012324247`*^9, 3.8921911678994336`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"bfbaee09-c044-4d55-a913-c89869741191"]
}, Open  ]],

Cell["\:8fd9\:6837\:5c31\:53ef\:4ee5\:83b7\:5f97\:5177\:4f53\:5206\:91cf\:7684\
\:5217\:8868\:4e86\:3002", "Text",
 CellChangeTimes->{{3.8852613377083564`*^9, 
  3.885261350902319*^9}},ExpressionUUID->"69140d98-4117-4394-a41d-\
6c89a373e1b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:9ece\:66fc\:5f20\:91cf\:5e76\:8bbe\:7f6e", "Subsection",
 CellChangeTimes->{{3.8822443192770996`*^9, 
  3.8822443253328323`*^9}},ExpressionUUID->"82e5a9ed-eb43-4276-8387-\
1154781deee9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcTensor", "[", "\"\<RiemannTensor\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.88199504013012*^9, 3.881995053437218*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"b837fef5-99d1-41b1-885c-6a91286299bf"],

Cell[BoxData[
 TemplateBox[{
   TemplateBox[{
     SubscriptBox["\"R\"", 
      TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\"", "\"\[Sigma]\""}, "RowDefault"]], 
     TemplateBox[{"\"\[Rho]\""}, "RowDefault"]}, "Superscript", SyntaxForm -> 
    SuperscriptBox], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
            1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}, {
              RowBox[{"-", "1"}], "0"}}, RowSpacings -> 1, ColumnSpacings -> 
            1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              RowBox[{"-", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"1", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
            1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}]}}, RowSpacings -> 1, ColumnSpacings -> 1, 
       RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", 
      ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.881995062190774*^9, {3.8820772419474387`*^9, 3.8820772638720465`*^9}, 
   3.8820773231117444`*^9, 3.88207739146798*^9, 3.8820774382621393`*^9, 
   3.882086220885744*^9, 3.882243998465921*^9, 3.882244124216056*^9, 
   3.883200298576341*^9, 3.8834510155929017`*^9, 3.885067965025464*^9, 
   3.8851918187292395`*^9, 3.885260674089568*^9, 3.8921911697323866`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"3a72d489-6d0f-4566-b600-c150a13034c9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SetTensor", "[", 
  RowBox[{
   RowBox[{"STensor", "[", 
    RowBox[{"R", ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
     RowBox[{"{", "d", "}"}]}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{"STCalcTensor", "[", "\"\<RiemannTensor\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.88224412872299*^9, 3.882244150239408*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"bc633692-a962-41b2-a93a-6035e07498da"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:9ece\:66fc\:5f20\:91cf\:7684\:5b9a\:4e49", "Subsection",
 CellChangeTimes->{
  3.8832088044579782`*^9, {3.8832089090351887`*^9, 
   3.883208911448101*^9}},ExpressionUUID->"3d70a709-d9c7-43b2-a1da-\
4ae14c9ffc7c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SubscriptBox["v", "a"], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SubscriptBox["w", "a"], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8832092685685463`*^9, 3.883209302011244*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"51cb0a24-81ea-4746-af31-976db3cda06e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcComponents", "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      RowBox[{
       SubscriptBox["\[Del]", "b"], 
       SubscriptBox["w", "c"]}]}], "-", 
     RowBox[{
      SubscriptBox["\[Del]", "b"], 
      RowBox[{
       SubscriptBox["\[Del]", "a"], 
       SubscriptBox["w", "c"]}]}]}], ",", 
    RowBox[{
     SuperscriptBox[
      SubscriptBox["R", "abc"], "d"], 
     SubscriptBox["w", "d"]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8832092149599504`*^9, 3.883209267384093*^9}, {
   3.883209317801728*^9, 3.8832093374147654`*^9}, {3.883209368864205*^9, 
   3.883209372834228*^9}, {3.883209411534187*^9, 3.883209427614538*^9}, {
   3.883604773911182*^9, 3.8836047745895233`*^9}, {3.8869745816596584`*^9, 
   3.8869746006403375`*^9}, 3.8921911426071043`*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"2e58f367-3541-4c3d-8252-98202d5ae438"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox["\[ScriptCapitalT]", 
      TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]"}, "RowDefault"]], 
     "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}, {"0"}}, 
               RowSpacings -> 1, ColumnAlignments -> Center, ColumnAlignments -> 
               Left], Column], "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{
                 RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"0"}}, 
               RowSpacings -> 1, ColumnAlignments -> Center, ColumnAlignments -> 
               Left], Column], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}}, 
         RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
         ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     SubscriptBox["\[ScriptCapitalT]", 
      TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]"}, "RowDefault"]], 
     "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}, {"0"}}, 
               RowSpacings -> 1, ColumnAlignments -> Center, ColumnAlignments -> 
               Left], Column], "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{
                 RowBox[{"-", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"0"}}, 
               RowSpacings -> 1, ColumnAlignments -> Center, ColumnAlignments -> 
               Left], Column], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}}, 
         RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
         ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.883209428795581*^9, {3.883604612631027*^9, 3.8836046406325397`*^9}, {
   3.883604764406205*^9, 3.883604775750935*^9}, {3.885191823102705*^9, 
   3.885191826231747*^9}, 3.886974443872594*^9, 3.8869746012103424`*^9, 
   3.892191174127365*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"ed565d62-40d1-460f-8c25-6cc5ad2ab80d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcComponents", "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["g", "ad"], 
      SuperscriptBox["g", "be"], 
      RowBox[{
       SubscriptBox["\[Del]", "d"], 
       RowBox[{
        SubscriptBox["\[Del]", "e"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "c"]}]}]}], 
     "-", 
     RowBox[{
      SuperscriptBox["g", "ad"], 
      SuperscriptBox["g", "be"], 
      RowBox[{
       SubscriptBox["\[Del]", "e"], 
       RowBox[{
        SubscriptBox["\[Del]", "d"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "c"]}]}]}]}], 
    ",", 
    RowBox[{
     SuperscriptBox["g", "ae"], 
     SuperscriptBox["g", "bf"], 
     SuperscriptBox["g", "cg"], 
     SubscriptBox["g", "dh"], 
     SuperscriptBox[
      SubscriptBox["R", "efg"], "h"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[CapitalDifferentialD]", "\[Phi]"}], ")"}], "d"]}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.886974456714449*^9, 3.886974611364976*^9}, {
   3.886974645765397*^9, 3.886974696620623*^9}, {3.886974948391532*^9, 
   3.886975005885968*^9}, 3.8921911426153603`*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"62beb865-aec0-48d6-a618-78cc0687c836"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     TemplateBox[{"\[ScriptCapitalT]", 
       TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]"}, "RowDefault"]}, 
      "Superscript", SyntaxForm -> SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{"0"}, {
                 RowBox[{"-", 
                   FractionBox["1", 
                    SuperscriptBox["R", "4"]]}]}}, RowSpacings -> 1, 
               ColumnAlignments -> Center, ColumnAlignments -> Left], Column],
              "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{"0"}, {
                 FractionBox["1", 
                  SuperscriptBox["R", "4"]]}}, RowSpacings -> 1, 
               ColumnAlignments -> Center, ColumnAlignments -> Left], Column],
              "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}}, 
         RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
         ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{"\[ScriptCapitalT]", 
       TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]"}, "RowDefault"]}, 
      "Superscript", SyntaxForm -> SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{"0"}, {
                 RowBox[{"-", 
                   FractionBox["1", 
                    SuperscriptBox["R", "4"]]}]}}, RowSpacings -> 1, 
               ColumnAlignments -> Center, ColumnAlignments -> Left], Column],
              "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              GridBox[{{"0"}, {
                 FractionBox["1", 
                  SuperscriptBox["R", "4"]]}}, RowSpacings -> 1, 
               ColumnAlignments -> Center, ColumnAlignments -> Left], Column],
              "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             TagBox[
              
              GridBox[{{"0"}, {"0"}}, ColumnAlignments -> Center, RowSpacings -> 
               1, ColumnAlignments -> Left], Column], "\[NoBreak]", ")"}]}}, 
         RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
         ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8869745288483486`*^9, 3.8869745600838013`*^9}, 
   3.8869746997457056`*^9, {3.8869749616628885`*^9, 3.8869750063776464`*^9}, 
   3.8921911757184167`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"233d1328-36dc-4bec-98ce-fde9eb62849e"]
}, Open  ]],

Cell["\:53ef\:4ee5\:770b\:5230\:4e24\:8005\:7684\:7ed3\:679c\:662f\:76f8\:7b49\
\:7684\:3002\:8fd9\:9a8c\:8bc1\:4e86\:9ece\:66fc\:5f20\:91cf\:7684\:5b9a\:4e49\
\:3002", "Text",
 CellChangeTimes->{{3.883209558846335*^9, 3.8832095784575853`*^9}, {
  3.8835097791191807`*^9, 3.8835097807347713`*^9}, {3.8852604009459276`*^9, 
  3.885260401438221*^9}},ExpressionUUID->"3143aafc-0fba-4d49-8a28-\
094c4f319025"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:91cc\:5947\:5f20\:91cf\:5e76\:8bbe\:7f6e", "Subsection",
 CellChangeTimes->{{3.8822443415887156`*^9, 
  3.882244344718445*^9}},ExpressionUUID->"61684444-8905-4ce1-8091-\
a9430c9c5a44"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcTensor", "[", "\"\<RicciTensor\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.881995063768309*^9, 3.8819950687459345`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"4626a2b1-7696-47b3-9162-bc6918ff785e"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\"R\"", 
    TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], "0"}, {"0", "1"}}, 
       RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
       ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.8819950813404083`*^9, {3.882077243506762*^9, 3.8820772670555687`*^9}, 
   3.882077326068585*^9, 3.882077440728796*^9, 3.8820862222319746`*^9, 
   3.8832003032223034`*^9, 3.8850679700260344`*^9, 3.8851918320262146`*^9, 
   3.892191177304742*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"ee9e1cd1-b443-41ff-b69f-30c3f4fd6c6d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SetTensor", "[", 
  RowBox[{
   RowBox[{"STensor", "[", 
    RowBox[{"R", ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{"STCalcTensor", "[", "\"\<RicciTensor\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.882244207369112*^9, 3.8822442136378045`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"544fd9ac-fad6-4a14-9533-94992e1e037a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:91cc\:5947\:6807\:91cf", "Subsection",
 CellChangeTimes->{{3.882244353254987*^9, 
  3.8822443557632484`*^9}},ExpressionUUID->"5a5ef315-c6bf-4927-878a-\
d268ea411a0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcTensor", "[", "\"\<RicciScalar\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.881995083670255*^9, 3.8819950900061398`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"5bbe4656-747a-42c0-9361-c61649628f20"],

Cell[BoxData[
 TemplateBox[{"\"R\"", "\"=\"", 
   TagBox[
    FractionBox["2", 
     SuperscriptBox["R", "2"]], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.881995098720572*^9, {3.882077246045447*^9, 3.8820772681667385`*^9}, 
   3.882077327286831*^9, 3.882077441930873*^9, 3.8820862231835203`*^9, 
   3.883200305683869*^9, 3.885067971903596*^9, 3.8851918333671913`*^9, 
   3.8921911798821645`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"9df96da0-213e-49ee-9194-60fd082f8d75"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:7231\:56e0\:65af\:5766\:5f20\:91cf\:5e76\:8bbe\:7f6e", \
"Subsection",
 CellChangeTimes->{{3.8822443589028206`*^9, 
  3.8822443627529936`*^9}},ExpressionUUID->"1b2b4bcf-25ba-4e67-882f-\
9e6325045556"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcTensor", "[", "\"\<EinsteinTensor\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.881995099500406*^9, 3.881995109316817*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"9c4af208-c3d8-49b8-9f38-2c7aa8a4e754"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\"G\"", 
    TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1,
        RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", 
      ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.881995116291788*^9, {3.882077247006822*^9, 3.882077269831401*^9}, 
   3.8820773313586516`*^9, 3.882077443200961*^9, 3.882086224121356*^9, 
   3.883200307277033*^9, 3.8850679780877705`*^9, 3.8921911811190147`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"8084a5b5-bc87-4fdb-973f-c99ec78242b9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SetTensor", "[", 
  RowBox[{
   RowBox[{"STensor", "[", 
    RowBox[{"G", ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{"STCalcTensor", "[", "\"\<EinsteinTensor\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8822442270292816`*^9, 3.8822442334695787`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"31402982-cccd-4378-9a63-441044640653"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:663e\:793a\:540d\:79f0\:4e3aR\:7684\:6240\:6709\:5f20\:91cf\:4fe1\
\:606f", "Subsection",
 CellChangeTimes->{{3.8822443718256865`*^9, 
  3.882244378765835*^9}},ExpressionUUID->"b2676548-d95b-492e-bde9-\
542577f2ef94"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STensorInfo", "[", "R", "]"}]], "Input",
 CellChangeTimes->{{3.8822442373033543`*^9, 3.8822442409580746`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"d4a150a4-0243-4774-9499-227887c8429c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     TemplateBox[{
       SubscriptBox["R", 
        TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]"}, "RowDefault"]], 
       TemplateBox[{"\[Delta]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
      SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}, {
                RowBox[{"-", "1"}], "0"}}, RowSpacings -> 1, ColumnSpacings -> 
              1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
             "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", 
                RowBox[{"-", 
                  SuperscriptBox[
                   RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {
               "1", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
              RowAlignments -> Baseline, ColumnAlignments -> Center], 
             "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}]}}, RowSpacings -> 
         1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     SubscriptBox["R", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], "0"}, {"0", "1"}}, 
         RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
         ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.882244264485465*^9, {3.882244656555812*^9, 3.882244676741991*^9}, 
   3.883200311989459*^9, {3.885067988532538*^9, 3.8850680043378515`*^9}, 
   3.892191183452488*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"73b968f0-8b5b-4c12-9372-3c4e187a71ec"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox[
    SubscriptBox["\:4ec5\:663e\:793aR", 
     RowBox[{"a", " ", "b", " ", "c"}]], "d"], "\:578b\:5f20\:91cf", 
   RowBox[{"\:ff08", "\:9ece\:66fc\:5f20\:91cf", "\:ff09"}], 
   "\:7684\:5206\:91cf"}], 
  TraditionalForm]],ExpressionUUID->"ddaf668c-41ce-4525-9dc8-b18dca8da881"]], \
"Subsection",
 CellChangeTimes->{{3.8832097193499146`*^9, 
  3.883209772917512*^9}},ExpressionUUID->"001b5425-a896-45c5-a2c4-\
c0213d9d11b7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STensorInfo", "[", 
  RowBox[{"STensor", "[", 
   RowBox[{"R", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
    RowBox[{"{", "d", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8822443856493177`*^9, 3.882244407490217*^9}, {
  3.8822444969697742`*^9, 3.8822445039593315`*^9}, {3.8822447406209564`*^9, 
  3.8822447562191863`*^9}, {3.8832097517221155`*^9, 3.8832097545525217`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"c6f9864c-6958-4ebf-ab4c-8f9c641c7d40"],

Cell[BoxData[
 TemplateBox[{
   TemplateBox[{
     SubscriptBox["R", 
      TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]"}, "RowDefault"]], 
     TemplateBox[{"\[Delta]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
    SuperscriptBox], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
            1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              SuperscriptBox[
               RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}, {
              RowBox[{"-", "1"}], "0"}}, RowSpacings -> 1, ColumnSpacings -> 
            1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              RowBox[{"-", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"1", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
            1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}]}}, RowSpacings -> 1, ColumnSpacings -> 1, 
       RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", 
      ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.8822444417893085`*^9, {3.882244489914714*^9, 3.8822444984016156`*^9}, 
   3.882244693191063*^9, {3.8822447410507717`*^9, 3.8822447566127386`*^9}, 
   3.8832003133257236`*^9, 3.8834510237154737`*^9, 3.885068008526184*^9, 
   3.8921911847311907`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"7b76e007-66ac-4afe-9b55-bade3f07a42c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:91c7\:7528\:62bd\:8c61\:6307\:6807\:5f62\:5f0f\:8f93\:5165\:8868\:8fbe\
\:5f0f\:ff0c\:6765\:83b7\:53d6\:5f20\:91cf\:4fe1\:606f", "Subsection",
 CellChangeTimes->{{3.88320978154774*^9, 
  3.8832097945762215`*^9}},ExpressionUUID->"e7c25194-78ed-4947-a20e-\
7f63a5a31b70"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STensorInfo", "[", 
  SubscriptBox["G", "ab"], "]"}]], "Input",
 CellChangeTimes->{{3.8822446989825864`*^9, 3.882244703558149*^9}, 
   3.8850680167689333`*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"f59c564a-83cd-43b2-9c10-3d17d2b3fcff"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["G", 
    TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1,
        RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", 
      ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{{3.88224472153994*^9, 3.8822447382001324`*^9}, 
   3.8832003162321386`*^9, {3.885068010416029*^9, 3.8850680194872446`*^9}, 
   3.892191186007642*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"39ac2022-6733-42c8-87d7-5d11bb1e7b78"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:6240\:6709\:4e8c\:7ef4\:5e7f\:4e49\:9ece\:66fc\:7a7a\:95f4\
\:7684\:7231\:56e0\:65af\:5766\:5f20\:91cf\:5747\:4e3a\:96f6", "Subsection",
 CellChangeTimes->{{3.8850680291620884`*^9, 
  3.8850680502045317`*^9}},ExpressionUUID->"01617395-9611-4340-b747-\
53f66f5eed82"],

Cell["\:5ea6\:89c4\:7684\:56db\:4e2a\:5206\:91cf\:5747\:4e3a\:5750\:6807\:7cfb\
\:7684\:51fd\:6570", "Text",
 CellChangeTimes->{{3.885068186081646*^9, 
  3.8850682049599447`*^9}},ExpressionUUID->"608554c7-d5e5-4a11-8c26-\
22ee002316d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ein", "=", 
   RowBox[{"SCalcEinsteinTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["g", "11"], "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{
          SubscriptBox["g", "12"], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubscriptBox["g", "21"], "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{
          SubscriptBox["g", "22"], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.885068052688737*^9, 3.885068151633594*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"03a31d3d-9449-40e4-b579-29101d58927d"],

Cell["\:5229\:7528\:5ea6\:89c4\:7684\:5bf9\:79f0\:6027\:8fdb\:884c\:5316\:7b80\
", "Text",
 CellChangeTimes->{{3.8850681755628753`*^9, 
  3.8850681826159725`*^9}},ExpressionUUID->"fd65de84-2ccf-419e-8fda-\
4a5751f7f16a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"ein", ",", 
    RowBox[{
     SubscriptBox["g", "12"], "==", 
     SubscriptBox["g", "21"]}]}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8850681539799185`*^9, 3.885068170637868*^9}, {
  3.8859534430916395`*^9, 3.8859534605119977`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"302a9404-91ca-4e46-9d36-63811d672315"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0"},
     {"0", "0"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.885068166230015*^9, 3.8850681708874846`*^9}, {
   3.8859534407260747`*^9, 3.8859534613544426`*^9}, 3.892191189645946*^9},
 CellLabel->
  "Out[52]//MatrixForm=",ExpressionUUID->"9d731eb5-ccdc-4f84-b8b7-\
9cc6608de778"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6c42\:89e3Killing\:77e2\:91cf\:573a", "Subsection",
 CellChangeTimes->{{3.883177429934814*^9, 
  3.8831774553506436`*^9}},ExpressionUUID->"a950ec25-c72f-4aff-b49c-\
38813b1f89ae"],

Cell[BoxData[
 RowBox[{"SetTensor", "[", 
  RowBox[{
   SuperscriptBox["\[Xi]", "a"], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Superscript", "[", 
       RowBox[{"\[Xi]", ",", "1"}], "]"}], "[", 
      RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"Superscript", "[", 
       RowBox[{"\[Xi]", ",", "2"}], "]"}], "[", 
      RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8831774771589985`*^9, 3.8831775195363736`*^9}, {
  3.883177936743739*^9, 3.883177948904843*^9}, {3.883197755458245*^9, 
  3.8831977570959654`*^9}, {3.883199868095461*^9, 3.8831998727130475`*^9}, {
  3.883200364214482*^9, 3.883200382485613*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"1026d779-7246-4792-a05f-aaf524c0bb34"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"expr", " ", "=", " ", 
  RowBox[{"STSymmetrize", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Del]", "a"], 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["g", "bc"], 
       SuperscriptBox["\[Xi]", "c"]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8831775263087687`*^9, 3.883177586544856*^9}, {
   3.883197764095953*^9, 3.8831977730761175`*^9}, {3.883210399313425*^9, 
   3.8832103997942133`*^9}, 3.8836047942495766`*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"d09a6c99-c4d8-4455-8160-b6e8b78140fc"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{
      RowBox[{"(", 
        RowBox[{
          RowBox[{"STensor", "[", 
            RowBox[{"g", ",", 
              RowBox[{"{", 
                RowBox[{"a", ",", "c"}], "}"}], ",", 
              RowBox[{"{", "}"}]}], "]"}], " ", 
          RowBox[{"STensor", "[", 
            RowBox[{"\[Xi]", ",", 
              RowBox[{"{", "}"}], ",", 
              RowBox[{"{", "c", "}"}]}], "]"}]}], ")"}], "b"},
     "Grad"], "+", 
    TemplateBox[{
      RowBox[{"(", 
        RowBox[{
          RowBox[{"STensor", "[", 
            RowBox[{"g", ",", 
              RowBox[{"{", 
                RowBox[{"b", ",", "c"}], "}"}], ",", 
              RowBox[{"{", "}"}]}], "]"}], " ", 
          RowBox[{"STensor", "[", 
            RowBox[{"\[Xi]", ",", 
              RowBox[{"{", "}"}], ",", 
              RowBox[{"{", "c", "}"}]}], "]"}]}], ")"}], "a"},
     "Grad"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8831775881395254`*^9, 3.8831779539842944`*^9, 
  3.883197774359072*^9, 3.8832003324436483`*^9, 3.8832003846009283`*^9, 
  3.8836047973122163`*^9, 3.8851918477004547`*^9, 3.8921911917012515`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"36bd2d54-beda-41f1-99cf-f7aad756dcf6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcComponents", "[", "expr", "]"}]], "Input",
 CellChangeTimes->{{3.8831775993990583`*^9, 3.8831776033727207`*^9}, {
   3.8831776906261234`*^9, 3.8831776988666115`*^9}, {3.8832104060826836`*^9, 
   3.883210406581438*^9}, 3.892191142625083*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"8a845557-a2c9-4dbf-a8a2-7a10d565b324"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\[ScriptCapitalT]", 
    TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{
           SuperscriptBox["R", "2"], " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
                 RowBox[{
                   
                   TemplateBox[{"\[Xi]", "2"}, "Superscript", SyntaxForm -> 
                    SuperscriptBox], "[", 
                   RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "+", 
               RowBox[{
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    
                    TemplateBox[{"\[Xi]", "1"}, "Superscript", SyntaxForm -> 
                    SuperscriptBox], ")"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}], Derivative], 
                    MultilineFunction -> None], "[", 
                   RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}]}], ")"}]}], 
         RowBox[{
           FractionBox["1", "2"], " ", 
           SuperscriptBox["R", "2"], " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    
                    TemplateBox[{"\[Xi]", "1"}, "Superscript", SyntaxForm -> 
                    SuperscriptBox], ")"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}], Derivative], 
                    MultilineFunction -> None], "[", 
                   RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "+", 
               RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                    
                    TemplateBox[{"\[Xi]", "2"}, "Superscript", SyntaxForm -> 
                    SuperscriptBox], ")"}], 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}], Derivative], 
                  MultilineFunction -> None], "[", 
                 RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], ")"}]}]}, {
         RowBox[{
           FractionBox["1", "2"], " ", 
           SuperscriptBox["R", "2"], " ", 
           RowBox[{"(", 
             RowBox[{
               RowBox[{
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
                 RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    
                    TemplateBox[{"\[Xi]", "1"}, "Superscript", SyntaxForm -> 
                    SuperscriptBox], ")"}], 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}], Derivative], 
                    MultilineFunction -> None], "[", 
                   RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "+", 
               RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                    
                    TemplateBox[{"\[Xi]", "2"}, "Superscript", SyntaxForm -> 
                    SuperscriptBox], ")"}], 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}], Derivative], 
                  MultilineFunction -> None], "[", 
                 RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], ")"}]}], 
         RowBox[{
           SuperscriptBox["R", "2"], " ", 
           RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
                
                TemplateBox[{"\[Xi]", "2"}, "Superscript", SyntaxForm -> 
                 SuperscriptBox], ")"}], 
              TagBox[
               RowBox[{"(", 
                 RowBox[{"0", ",", "1"}], ")"}], Derivative], 
              MultilineFunction -> None], "[", 
             RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}]}}, RowSpacings -> 1,
        ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
       Center], "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{3.883177621446424*^9, 3.883177699432933*^9, 
  3.883177955741926*^9, 3.8831977761918745`*^9, 3.8832003375172853`*^9, 
  3.883200387445416*^9, 3.8836047986860504`*^9, 3.885191848927086*^9, 
  3.8921911926905937`*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"55543be6-d119-4675-921f-fb109fde365c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"components", "=", 
  RowBox[{"%", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8831777010998054`*^9, 3.8831777313167734`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"ba307bb6-7e73-4f0d-941f-8ea08f04c7b2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          TemplateBox[{"\[Xi]", "2"},
           "Superscript"], "[", 
          RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            TemplateBox[{"\[Xi]", "1"},
             "Superscript"], ")"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            TemplateBox[{"\[Xi]", "1"},
             "Superscript"], ")"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           TemplateBox[{"\[Xi]", "2"},
            "Superscript"], ")"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["R", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            TemplateBox[{"\[Xi]", "1"},
             "Superscript"], ")"}], 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           TemplateBox[{"\[Xi]", "2"},
            "Superscript"], ")"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], ")"}]}], ",", 
     RowBox[{
      SuperscriptBox["R", "2"], " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         TemplateBox[{"\[Xi]", "2"},
          "Superscript"], ")"}], 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.883177733401474*^9, 3.883177957248247*^9, 
  3.883197778500183*^9, 3.8832003405856037`*^9, 3.883200393781215*^9, 
  3.8851918530185556`*^9, 3.8921911941004567`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"0c3b8b92-3e1d-4c42-bc7b-8f46a466830a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"$Assumptions", "=", 
   RowBox[{
    RowBox[{"R", ">", "0"}], "&&", 
    RowBox[{"0", "<", "\[Theta]", "<", "Pi"}], "&&", 
    RowBox[{"0", "<", "\[Phi]", "<", 
     RowBox[{"2", " ", "Pi"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8831978107506065`*^9, 3.883197872046683*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"ee4c6308-96b5-454f-ad9a-50c8bab642bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"components", "==", 
     RowBox[{"Array", "[", 
      RowBox[{
       RowBox[{"0", "&"}], ",", 
       RowBox[{"Dimensions", "[", "components", "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", 
       RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], ",", 
      RowBox[{"\[Xi]2", "[", 
       RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], "}"}], ",", "Reals"}], 
   "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8831777429401264`*^9, 3.8831779267024097`*^9}, {
  3.883177971785665*^9, 3.8831779781930103`*^9}, {3.8831780144968157`*^9, 
  3.8831780151766357`*^9}, {3.883197797976574*^9, 3.8831977997538996`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"b7c25e66-8d76-49fa-8bac-bf7997e9653e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      TemplateBox[{"\[Xi]", "2"},
       "Superscript"], "[", 
      RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], "\[NotEqual]", "0"}], "||", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        TemplateBox[{"\[Xi]", "1"},
         "Superscript"], ")"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], "\[Equal]", "0"}]}], ")"}], 
  "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      TemplateBox[{"\[Xi]", "2"},
       "Superscript"], "[", 
      RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], "\[Equal]", "0"}], "||", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "\[Theta]", "]"}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           TemplateBox[{"\[Xi]", "1"},
            "Superscript"], ")"}], 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}], 
       RowBox[{
        TemplateBox[{"\[Xi]", "2"},
         "Superscript"], "[", 
        RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]]}], "\[Equal]", "0"}]}], 
   ")"}], "&&", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      TemplateBox[{"\[Xi]", "2"},
       "Superscript"], ")"}], 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], "\[Equal]", "0"}], "&&", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       TemplateBox[{"\[Xi]", "1"},
        "Superscript"], ")"}], 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        TemplateBox[{"\[Xi]", "2"},
         "Superscript"], ")"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"\[Phi]", ",", "\[Theta]"}], "]"}]}]}], "\[Equal]", 
   "0"}]}]], "Output",
 CellChangeTimes->{{3.8831777801371346`*^9, 3.883177927113886*^9}, {
   3.8831779587839603`*^9, 3.8831779785229197`*^9}, 3.8831780156161685`*^9, {
   3.8831977821492434`*^9, 3.8831978001100144`*^9}, {3.883197845373643*^9, 
   3.8831978742286005`*^9}, 3.883198041139412*^9, 3.8832003449370503`*^9, 
   3.8832003982029276`*^9, 3.885191856887297*^9, 3.8921911971575403`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"2ae268dc-1cd3-422a-bd1a-4c740ff1ae74"]
}, Open  ]],

Cell["\<\
\:8fd9\:4e2a\:504f\:5fae\:5206\:65b9\:7a0b\:7ec4\:4f7f\:7528Mathematica\:4e0d\
\:6613\:6c42\:89e3\:ff0c\:8fd9\:91cc\:91c7\:53d6\:8fc2\:56de\:6218\:7565\
\[LongDash]\[LongDash]\:731c\:6d4b\:51fa\:7403\:9762\:7684\:5bf9\:79f0\:6027\
\:662f\:5728\:7b1b\:5361\:5c14\:5750\:6807\:7cfb\:4e0b\:7ed5\:4e09\:4e2a\:5750\
\:6807\:8f74\:7684\:65cb\:8f6c\:5bf9\:79f0\:6027\:3002\:7531\:6b64\:6539\:4e3a\
\:4e09\:7ef4\:6b27\:6c0f\:7a7a\:95f4\:7684\:7b1b\:5361\:5c14\:5750\:6807\:7cfb\
\:4e0b\:76f4\:63a5\:5199\:51fa\:4e09\:4e2a\:65cb\:8f6c\:5bf9\:79f0\:6027\:7684\
Killing\:77e2\:91cf\:5e76\:91c7\:7528\:5750\:6807\:53d8\:6362\:5f97\:5230\
\:7403\:5750\:6807\:7cfb\:4e0b\:7684\:5206\:91cf\:ff0c\:518d\:4ee3\:56de\:8fd9\
\:91cc\:8fdb\:884c\:9a8c\:8bc1\:3002\
\>", "Text",
 CellChangeTimes->{{3.8831780343042436`*^9, 3.883178062774838*^9}, {
  3.8831781299066925`*^9, 3.8831781319775715`*^9}, {3.8832001396448016`*^9, 
  3.8832002709284067`*^9}, {3.8832062833795404`*^9, 3.883206307270172*^9}, {
  3.883207319425474*^9, 
  3.883207337572882*^9}},ExpressionUUID->"dc98e71e-87d7-4e5b-9f21-\
d8e095387e43"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["u", "a"], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["v", "a"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Cos", "[", "\[Phi]", "]"}]}], 
       RowBox[{"Cot", "[", "\[Theta]", "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["w", "a"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", "\[Phi]", "]"}], 
       RowBox[{"Cot", "[", "\[Theta]", "]"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8831933311052732`*^9, 3.8831933737227354`*^9}, {
   3.883193547702181*^9, 3.8831935519833217`*^9}, {3.883193649462929*^9, 
   3.883193657511517*^9}, {3.8831939141514387`*^9, 3.883193914681746*^9}, {
   3.883194269981799*^9, 3.883194326310932*^9}, {3.883194461380308*^9, 
   3.8831944948214936`*^9}, {3.8831949971002274`*^9, 3.883195001629608*^9}, {
   3.883195915710046*^9, 3.8831959551894197`*^9}, {3.883195993347761*^9, 
   3.8831961126076517`*^9}, {3.8831969793475657`*^9, 
   3.8831970021373634`*^9}, {3.8831974521070437`*^9, 3.883197461787305*^9}, {
   3.8831975985970426`*^9, 3.8831976290266137`*^9}, {3.88319766360674*^9, 
   3.883197711966854*^9}, 3.88319774677718*^9, {3.8831978983577747`*^9, 
   3.883197920226846*^9}, {3.8831979505677214`*^9, 3.8831980189864397`*^9}, {
   3.883198225937171*^9, 3.883198295565713*^9}, {3.883199719984903*^9, 
   3.8831997601865444`*^9}, {3.8831999409264*^9, 3.8831999500365734`*^9}, {
   3.883200039986206*^9, 3.883200043065462*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"09cdc31f-b9f7-4450-ac27-b56840d67ffb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcComponents", "/@", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"STSymmetrize", "[", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Del]", "a"], 
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["g", "bc"], 
           SuperscriptBox["#", "c"]}], ")"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "b"}], "}"}]}], "]"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "w"}], "}"}]}], ")"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8831933787967777`*^9, 3.8831934274022846`*^9}, {
   3.8831943021813383`*^9, 3.8831943243394976`*^9}, {3.8831944876697545`*^9, 
   3.8831944923816233`*^9}, {3.883196531421688*^9, 3.8831965323332815`*^9}, {
   3.8831966022645407`*^9, 3.8831966048621817`*^9}, {3.8831974083288155`*^9, 
   3.883197441657345*^9}, {3.8831975614274154`*^9, 3.883197622696861*^9}, {
   3.883197703567501*^9, 3.8831977055018053`*^9}, {3.883199811443527*^9, 
   3.883199815323228*^9}, 3.8836048080411406`*^9, 3.892191142635394*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"4fb41d9b-bfe2-4641-be9d-940d7c5176b7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox["\[ScriptCapitalT]", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
         1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
        "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     SubscriptBox["\[ScriptCapitalT]", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
         1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
        "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     SubscriptBox["\[ScriptCapitalT]", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{"0", "0"}, {"0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 
         1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
        "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8831934133048935`*^9, 3.883193438658865*^9}, 
   3.8831935571146*^9, 3.8831936537394476`*^9, 3.8831939174046044`*^9, {
   3.8831942866206083`*^9, 3.88319432196076*^9}, {3.883194463885016*^9, 
   3.8831944892522535`*^9}, 3.8831950033203115`*^9, {3.88319592155986*^9, 
   3.883195941510088*^9}, {3.8831960014759617`*^9, 3.8831960788893423`*^9}, 
   3.883196539441781*^9, 3.8831966059943714`*^9, {3.8831969828168726`*^9, 
   3.883197004792015*^9}, 3.883197410028556*^9, {3.8831974448033075`*^9, 
   3.883197457736741*^9}, {3.8831976171041803`*^9, 3.883197634093291*^9}, {
   3.8831976722327847`*^9, 3.883197713911826*^9}, 3.8831977482490296`*^9, {
   3.883197904793852*^9, 3.883197921596689*^9}, {3.8831979837884765`*^9, 
   3.883198020796192*^9}, {3.883198234443244*^9, 3.8831982672900486`*^9}, 
   3.8831997816234455`*^9, 3.8831998159298096`*^9, 3.8831999626159463`*^9, 
   3.883200057232765*^9, 3.883200405384026*^9, 3.8836048110857296`*^9, 
   3.8851918628275733`*^9, 3.892191200527351*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"63867698-8904-4b08-a2d8-21f7aa3b1892"]
}, Open  ]],

Cell["\:4e8c\:7ef4\:7403\:9762\:7684\:5177\:6709\:4e09\:79cd\:5bf9\:79f0\:6027\
\[LongDash]\[LongDash]\:7ed5\:7b1b\:5361\:5c14\:5750\:6807\:7cfb\:4e0b\:7684x-\
y-z\:8f74\:7684\:65cb\:8f6c\:5bf9\:79f0\:6027\:ff0c\:5177\:6709\:4e09\:4e2a\
\:72ec\:7acb\:7684Killing\:77e2\:91cf\:573a\:3002", "Text",
 CellChangeTimes->{{3.8832004142655325`*^9, 
  3.883200473147693*^9}},ExpressionUUID->"6e0dfc9d-2079-44f2-b672-\
6ed77781d330"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:4e09\:7ef4\:6b27\:6c0f\:5ea6\:89c4 3-D Euclidean Metric", "Section",
 CellChangeTimes->{{3.883200065033888*^9, 3.8832001046738515`*^9}, {
  3.8832062482663527`*^9, 
  3.8832062562671556`*^9}},ExpressionUUID->"4b95fe16-5124-41fa-b2d6-\
0d4bce0af041"],

Cell[BoxData[
 RowBox[{"SetMetric", "[", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.883199190228414*^9, 3.883199223199795*^9}, {
  3.88319927632559*^9, 3.8831992813946*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"3adc96a4-2e90-48da-bece-4ac35416622a"],

Cell[CellGroupData[{

Cell["\:65cb\:8f6c\:5bf9\:79f0\:6027\:5bf9\:5e94\:7684\:4e09\:4e2aKilling\
\:77e2\:91cf\:573a", "Subsection",
 CellChangeTimes->{{3.883200116887473*^9, 
  3.8832001288676186`*^9}},ExpressionUUID->"ebe688ed-a284-4ab6-a260-\
2f0b89d1f3c6"],

Cell["\:8fd9\:91cc\:6839\:636e\:5728\:6bcf\:4e2a\:5750\:6807\:5e73\:9762\:5185\
\:7684\:65cb\:8f6c\:5bf9\:79f0\:6027\:53ef\:4ee5\:5199\:51fa\:4e09\:4e2a\:72ec\
\:7acb\:7684Killing\:77e2\:91cf", "Text",
 CellChangeTimes->{{3.8832004995975122`*^9, 
  3.8832005179672403`*^9}},ExpressionUUID->"1b117606-8ff5-47c4-a739-\
fd6495f442f8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["u", "a"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "y"}], ",", "x", ",", "0"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["v", "a"], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "z"}], ",", "y"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetTensor", "[", 
   RowBox[{
    SuperscriptBox["w", "a"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "z"}], ",", "0", ",", "x"}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.883199259178481*^9, 3.883199314014095*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"28473798-289f-4f6c-b0f9-c05b9629bd43"],

Cell["\:8fdb\:884c\:5750\:6807\:53d8\:6362", "Text",
 CellChangeTimes->{{3.8832004901184826`*^9, 
  3.8832004951665874`*^9}},ExpressionUUID->"cf61edda-1aaa-42c8-a43a-\
495ee1c0f310"],

Cell[BoxData[
 RowBox[{"SCoordinatesTransform", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "->", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], ",", 
     RowBox[{"y", "->", 
      RowBox[{"r", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ",", 
     RowBox[{"z", "->", 
      RowBox[{"r", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8831993282980704`*^9, 3.8831994275554876`*^9}, {
  3.8831996093565216`*^9, 3.8831996361861706`*^9}, {3.88319998715726*^9, 
  3.883200002776622*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"c680ec24-2237-46bc-a5f6-075a75728962"],

Cell["\:8fd9\:65f6\:5f97\:5230\:4e86\:7403\:5750\:6807\:7cfb\:4e0b\:7684\:6bcf\
\:4e2aKilling\:77e2\:91cf\:573a\:7684\:5177\:4f53\:5206\:91cf\:8868\:8fbe\
\:5f0f\:ff0c\:5199\:56de\:524d\:9762\:7403\:9762\:5ea6\:89c4\:4e2d\:7684\:5bf9\
\:5e94\:5185\:5bb9\:ff0c\:7136\:540e\:8fdb\:884c\:9a8c\:8bc1\:5373\:53ef\:3002\
", "Text",
 CellChangeTimes->{{3.883200526348471*^9, 3.8832005801873074`*^9}, 
   3.8835099592184024`*^9},ExpressionUUID->"0f1d21b8-194d-4954-9c2f-\
f846838850cb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STensorInfo", "/@", 
  RowBox[{"{", 
   RowBox[{"u", ",", "v", ",", "w", ",", "g"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.883199658578395*^9, 3.883199670293679*^9}, {
  3.883199928583808*^9, 3.883199928883397*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"fb7ebe61-6b4f-4a94-a010-dd4a44f45332"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"u", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          
          GridBox[{{"0"}, {"0"}, {"1"}}, ColumnAlignments -> Center, 
           RowSpacings -> 1, ColumnAlignments -> Left], Column], "\[NoBreak]",
          ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"v", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          GridBox[{{"0"}, {
             RowBox[{"-", 
               RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}, {
             RowBox[{
               RowBox[{"-", 
                 RowBox[{"Cos", "[", "\[Phi]", "]"}]}], " ", 
               RowBox[{"Cot", "[", "\[Theta]", "]"}]}]}}, RowSpacings -> 1, 
           ColumnAlignments -> Center, ColumnAlignments -> Left], Column], 
         "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    TemplateBox[{
      TemplateBox[{"w", 
        TemplateBox[{"\[Alpha]"}, "RowDefault"]}, "Superscript", SyntaxForm -> 
       SuperscriptBox], "\"=\"", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", 
         TagBox[
          GridBox[{{"0"}, {
             RowBox[{"-", 
               RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}, {
             RowBox[{
               RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
               RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}}, RowSpacings -> 1, 
           ColumnAlignments -> Center, ColumnAlignments -> Left], Column], 
         "\[NoBreak]", ")"}], 
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     "RowDefault"], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
       SubscriptBox["g", 
        TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
       TagBox[
        RowBox[{"(", "\[NoBreak]", 
          GridBox[{{"1", "0", "0"}, {"0", 
             SuperscriptBox["r", "2"], "0"}, {"0", "0", 
             RowBox[{
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox[
                RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}}, RowSpacings -> 
           1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
           ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
        Function[BoxForm`e$, 
         MatrixForm[BoxForm`e$]]]},
      "RowDefault"], ",", 
     TemplateBox[{
       TemplateBox[{"g", 
         TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]}, "Superscript", 
        SyntaxForm -> SuperscriptBox], "\"=\"", 
       TagBox[
        RowBox[{"(", "\[NoBreak]", 
          GridBox[{{"1", "0", "0"}, {"0", 
             FractionBox["1", 
              SuperscriptBox["r", "2"]], "0"}, {"0", "0", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], 
              SuperscriptBox["r", "2"]]}}, RowSpacings -> 1, ColumnSpacings -> 
           1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
          "\[NoBreak]", ")"}], 
        Function[BoxForm`e$, 
         MatrixForm[BoxForm`e$]]]},
      "RowDefault"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8831996798454957`*^9, {3.883199908199766*^9, 3.8831999301273966`*^9}, 
   3.8832000259823923`*^9, 3.883200483664494*^9, {3.8832563264242992`*^9, 
   3.883256362495878*^9}, 3.88325652933252*^9, 3.8832565795796933`*^9, 
   3.8851918694366274`*^9, 3.89219120743867*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"bf605815-39b4-4304-94c2-a0d33d3e7f1a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:95f5\:5f0f\:65f6\:7a7a Minkowski SpaceTime", "Section",
 CellChangeTimes->{{3.883253254092184*^9, 3.8832532656606565`*^9}, {
  3.883274339335224*^9, 
  3.883274342734211*^9}},ExpressionUUID->"315048c3-df2e-44d8-92b0-\
9f711b02f0f3"],

Cell[CellGroupData[{

Cell["\:8bbe\:7f6e\:5ea6\:89c4\:5206\:91cf\:3001\:5750\:6807\:7cfb\:4ee5\:53ca\
\:5ea6\:89c4\:7b26\:53f7", "Subsection",
 CellChangeTimes->{{3.883253312621014*^9, 
  3.8832533212661705`*^9}},ExpressionUUID->"f078238f-9e18-4b78-aba0-\
a4558e90b159"],

Cell[BoxData[
 RowBox[{"SetMetric", "[", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", "\[Eta]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8832532674951*^9, 3.883253300757125*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"7e1233ca-0ebc-495a-852f-9728f005a1e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:95f5\:5f0f\:65f6\:7a7a\:7684\:5bf9\:79f0\:6027", \
"Subsection",
 CellChangeTimes->{{3.8832571276570873`*^9, 3.8832571339925804`*^9}, {
  3.8832651044868536`*^9, 
  3.8832651059884644`*^9}},ExpressionUUID->"a60776c4-ccab-4087-95e3-\
ebe972ca0264"],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:65f6\:7a7a\:5e73\:79fb\:4e0d\:53d8\:6027", "Subsubsection",
 CellChangeTimes->{{3.8832561592461424`*^9, 3.8832561633915415`*^9}, {
  3.8832571377808237`*^9, 
  3.8832571551923046`*^9}},ExpressionUUID->"0ab52749-81ef-4569-80d6-\
9d8f5cf9de18"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCoordinatesTransform", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "->", 
       RowBox[{"t", "+", 
        RowBox[{"C", "[", "1", "]"}]}]}], ",", 
      RowBox[{"x", "->", 
       RowBox[{"x", "+", 
        RowBox[{"C", "[", "2", "]"}]}]}], ",", 
      RowBox[{"y", "->", 
       RowBox[{"y", "+", 
        RowBox[{"C", "[", "3", "]"}]}]}], ",", 
      RowBox[{"z", "->", 
       RowBox[{"z", "+", 
        RowBox[{"C", "[", "4", "]"}]}]}]}], "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{"STensorInfo", "[", "\[Eta]", "]"}]}], "Input",
 CellChangeTimes->{{3.8832533842355914`*^9, 3.883253441172827*^9}, {
   3.883253493454139*^9, 3.8832534942407694`*^9}, {3.8832537111228943`*^9, 
   3.883253713813407*^9}, {3.883255655365878*^9, 3.883255702105356*^9}, {
   3.8832558401469283`*^9, 3.8832558625744314`*^9}, {3.883255896674512*^9, 
   3.8832559196761036`*^9}, {3.883255969177081*^9, 3.8832559822059183`*^9}, {
   3.88325605503585*^9, 3.883256149586375*^9}, 3.8832567840569077`*^9, {
   3.8832568911580105`*^9, 3.88325689776903*^9}, {3.883257157717964*^9, 
   3.883257166797871*^9}, 3.883547099454494*^9},
 CellLabel->"In[70]:=",ExpressionUUID->"3c46ad1f-d03a-449a-bdac-7ca894eeaec4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox["\[Eta]", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"}, {
          "0", "0", "1", "0"}, {"0", "0", "0", "1"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{"\[Eta]", 
       TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]}, "Superscript", 
      SyntaxForm -> SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"}, {
          "0", "0", "1", "0"}, {"0", "0", "0", "1"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8832534529925966`*^9, 3.883253500230598*^9}, {
   3.8832537086074142`*^9, 3.883253722216529*^9}, {3.8832556511202908`*^9, 
   3.883255709511923*^9}, {3.8832558568037143`*^9, 3.8832558662321835`*^9}, {
   3.8832559084813185`*^9, 3.8832559244043508`*^9}, {3.8832559644203186`*^9, 
   3.883256005805383*^9}, 3.883256072208349*^9, 3.883256154996904*^9, 
   3.8832562464709787`*^9, 3.8832562785755453`*^9, 3.883256536203091*^9, 
   3.883256585105323*^9, {3.8832567559743924`*^9, 3.8832567857236757`*^9}, {
   3.883256848620243*^9, 3.883256868437789*^9}, 3.8832569010519705`*^9, 
   3.883256965722906*^9, 3.8832571672807894`*^9, {3.8835470906965866`*^9, 
   3.8835471002926693`*^9}, 3.885191874852661*^9, 3.8921912104527817`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"8bc6f49d-ee1a-4871-b1d0-9dc199703b10"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7a7a\:95f4\:8f6c\:52a8\:4e0d\:53d8\:6027", "Subsubsection",
 CellChangeTimes->{{3.8835471771360598`*^9, 
  3.8835471910210333`*^9}},ExpressionUUID->"b05a8553-695b-4414-a032-\
aae30b43e6b2"],

Cell["\:7a7a\:95f4\:8f6c\:52a8\:4e0d\:53d8\:6027\:662f\:81ea\:7136\:6210\:7acb\
\:7684\:3002\:56e0\:4e3a\:4e09\:7ef4\:6b27\:6c0f\:7a7a\:95f4\:662f\:95f5\:5f0f\
\:65f6\:7a7a\:7684\:4e00\:4e2a\:5d4c\:5165\:5b50\:6d41\:5f62\:ff0c\:5176\:5ea6\
\:89c4\:5373\:4e3a\:6b27\:5f0f\:5ea6\:89c4\:ff0c\:81ea\:7136\:5e26\:6709\:4e09\
\:4e2a\:7a7a\:95f4\:8f6c\:52a8\:4e0d\:53d8\:6027\:3002", "Text",
 CellChangeTimes->{{3.883547194536445*^9, 
  3.883547253467409*^9}},ExpressionUUID->"f9c046d1-d0f6-4257-a647-\
10dcf4e9c7f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9a8c\:8bc1\:4f2a\:8f6c\:52a8\:4e0d\:53d8\:6027", "Subsubsection",
 CellChangeTimes->{{3.8835468461413136`*^9, 
  3.883546851537915*^9}},ExpressionUUID->"4777db92-6df6-4856-af10-\
b94d04826378"],

Cell["\:65f6\:7a7a\:7684\:4f2a\:8f6c\:52a8\:5bf9\:5e94\:4e86\:5750\:6807\:7cfb\
\:4e4b\:95f4\:7684\:6d1b\:4f26\:5179\:53d8\:6362\:3002\:8fd9\:91cc\:9a8c\:8bc1\
t-x\:7684\:4f2a\:8f6c\:52a8\:ff0ct-y\:ff0ct-z\:4e5f\:662f\:81ea\:7136\:6210\
\:7acb\:7684\:3002", "Text",
 CellChangeTimes->{{3.8835471128310127`*^9, 3.883547127205764*^9}, {
  3.8835472625155506`*^9, 
  3.8835472765882354`*^9}},ExpressionUUID->"3f30f329-38d1-4f33-8604-\
d39b1ad866f3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCoordinatesTransform", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "->", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Sinh", "[", "\[Phi]", "]"}]}], "+", 
        RowBox[{"t", " ", 
         RowBox[{"Cosh", "[", "\[Phi]", "]"}]}]}]}], ",", 
      RowBox[{"x", "->", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Cosh", "[", "\[Phi]", "]"}]}], "+", 
        RowBox[{"t", " ", 
         RowBox[{"Sinh", "[", "\[Phi]", "]"}]}]}]}], ",", 
      RowBox[{"y", "->", "y"}], ",", 
      RowBox[{"z", "->", "z"}]}], "}"}]}], "]"}], ";"}], "\n", 
 RowBox[{"STensorInfo", "[", "\[Eta]", "]"}]}], "Input",
 CellChangeTimes->{{3.883546855153675*^9, 3.8835468608815556`*^9}, {
  3.8835468917719874`*^9, 3.8835468981613345`*^9}, {3.8835469525522127`*^9, 
  3.8835469966727667`*^9}, {3.883547072282651*^9, 3.8835470972830906`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"68d69a81-4cd5-4ac8-a21d-c9a6538d0d7e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox["\[Eta]", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"}, {
          "0", "0", "1", "0"}, {"0", "0", "0", "1"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{"\[Eta]", 
       TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]}, "Superscript", 
      SyntaxForm -> SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"}, {
          "0", "0", "1", "0"}, {"0", "0", "0", "1"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{3.8835470449210873`*^9, 3.883547101368415*^9, 
  3.8851918837388673`*^9, 3.892191213141652*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"c2d1cc00-3f35-4747-9860-72e9acfb74b5"]
}, Open  ]],

Cell["\:53e6\:5916\:ff0c\:4f60\:53ef\:4ee5\:4f7f\:7528BoostMatrix\:6765\:751f\
\:6210\:5bf9\:5e94\:4e8e\:4e00\:4e2a\:901f\:5ea6\:5411\:91cf\:7684\:4f2a\:8f6c\
\:52a8\:77e9\:9635\:ff1a", "Text",
 CellChangeTimes->{{3.886487611413726*^9, 3.8864876497042685`*^9}, {
  3.886487770259888*^9, 3.88648777121264*^9}, {3.886491842085762*^9, 
  3.886491897952778*^9}},ExpressionUUID->"e98f86d7-823e-4470-a80d-\
06282a5df594"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"BoostMatrix", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "2"}], ",", "0", ",", "0"}], "}"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.886487651613826*^9, 3.8864876690456614`*^9}, {
  3.8864877140852103`*^9, 3.8864877151230574`*^9}, {3.8864877559904275`*^9, 
  3.886487781478278*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"5b820480-88bc-4d02-be41-11577342a65c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["2", 
       SqrtBox["3"]], 
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}], "0", "0"},
     {
      RowBox[{"-", 
       FractionBox["1", 
        SqrtBox["3"]]}], 
      FractionBox["2", 
       SqrtBox["3"]], "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8864876813168693`*^9, {3.886487757221027*^9, 3.886487782738386*^9}, 
   3.892191214369624*^9},
 CellLabel->
  "Out[74]//MatrixForm=",ExpressionUUID->"ebebbdd0-bcc1-4776-a838-\
727c02fd7226"]
}, Open  ]],

Cell["\<\
\:8fd9\:91cc\:6211\:9009\:5219\:4e86\:51e0\:4f55\:5355\:4f4d\:5236\:ff0c\:4e5f\
\:5c31\:662f\:8bf4\:ff0c\:5149\:901f\:662f\:901f\:5ea6\:7684\:5355\:4f4d\:ff0c\
\:53d61. \:56e0\:6b64\:901f\:5ea6\:5411\:91cf\:7684\:5927\:5c0f\:5e94\:5f53\
\:5c0f\:4e8e1.

\:6211\:4eec\:53ef\:4ee5\:901a\:8fc7\:5982\:4e0b\:65b9\:5f0f\:6765\:751f\:6210\
\:5bf9\:5e94\:7684\:5750\:6807\:53d8\:6362\:ff1a\
\>", "Text",
 CellChangeTimes->{{3.8864877870099583`*^9, 3.8864877954960966`*^9}, {
  3.8864878581037855`*^9, 3.8864879188800344`*^9}, {3.886488085286024*^9, 
  3.8864881176782985`*^9}, {3.886491901084984*^9, 
  3.88649196550597*^9}},ExpressionUUID->"5d748a3f-a3c7-4b27-9e31-\
2ef04a352ed2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"boost", "=", 
  RowBox[{"Refine", "[", 
   RowBox[{
    RowBox[{"MapThread", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#1", "->", "#2"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"CoordinatesInfo", "[", "]"}], ",", 
        RowBox[{
         RowBox[{"BoostMatrix", "[", 
          RowBox[{"{", 
           RowBox[{"u", ",", "0", ",", "0"}], "}"}], "]"}], ".", 
         RowBox[{"CoordinatesInfo", "[", "]"}]}]}], "}"}]}], "]"}], ",", 
    RowBox[{
     RowBox[{"-", "1"}], "<", "u", "<", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8864879224022064`*^9, 3.886487963068653*^9}, {
  3.886488009904228*^9, 3.8864880816871243`*^9}, {3.8864881635851984`*^9, 
  3.8864881677216234`*^9}, {3.886926802459364*^9, 3.8869268772802505`*^9}, {
  3.8869270051639137`*^9, 3.886927010681099*^9}, {3.8869275836929007`*^9, 
  3.8869276031507854`*^9}, {3.8869277108890567`*^9, 3.8869277224153795`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"55bf9170-a428-46d1-9f5a-f599f5f0f392"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"t", "\[Rule]", 
    RowBox[{
     FractionBox["t", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["u", "2"]}]]], "-", 
     FractionBox[
      RowBox[{"u", " ", "x"}], 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["u", "2"]}]]]}]}], ",", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"t", " ", "u"}], 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["u", "2"]}]]]}], "+", 
     FractionBox["x", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["u", "2"]}]]]}]}], ",", 
   RowBox[{"y", "\[Rule]", "y"}], ",", 
   RowBox[{"z", "\[Rule]", "z"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.886927722930477*^9, 3.8869277386470118`*^9}, 
   3.8921912160703244`*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"7f6ddc6f-7519-4289-b38f-2e5627413946"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SCoordinatesTransform", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}], ",", "boost"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"STensorInfo", "[", "\[Eta]", "]"}]}], "Input",
 CellChangeTimes->{{3.886488127082515*^9, 3.8864881707598023`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"b773b385-7fa6-4a18-8846-f85e58bda3bb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
     SubscriptBox["\[Eta]", 
      TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"}, {
          "0", "0", "1", "0"}, {"0", "0", "0", "1"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], ",", 
   TemplateBox[{
     TemplateBox[{"\[Eta]", 
       TemplateBox[{"\[Alpha]", "\[Beta]"}, "RowDefault"]}, "Superscript", 
      SyntaxForm -> SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"-", "1"}], "0", "0", "0"}, {"0", "1", "0", "0"}, {
          "0", "0", "1", "0"}, {"0", "0", "0", "1"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8864881571047907`*^9, 3.886488174768586*^9}, 
   3.892191217625545*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"54ee9b83-5a76-477a-afc8-f470cf782c13"]
}, Open  ]],

Cell["\:53ef\:4ee5\:770b\:5230\:95f5\:5f0f\:5ea6\:89c4\:5728\:4f2a\:8f6c\:52a8\
\:540e\:662f\:4e0d\:53d8\:7684\:3002", "Text",
 CellChangeTimes->{{3.886491988076651*^9, 
  3.8864920016805143`*^9}},ExpressionUUID->"4a827e24-4fce-4c9c-9b25-\
e78d4f9b9fbd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:65bd\:74e6\:897f\:5ea6\:89c4 Schwarzschild Metric", "Section",
 CellChangeTimes->{{3.8832063597111673`*^9, 3.883206365586562*^9}, {
  3.8832064140657787`*^9, 
  3.8832064283768873`*^9}},ExpressionUUID->"d264a300-cfe7-48e9-a814-\
cbdeb594ec04"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Protect", "[", "M", "]"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "M", " ", "is", " ", "the", " ", "mass", " ", "of", " ", "the", " ", 
    "star"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetMetric", "[", 
   RowBox[{
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"2", " ", "M"}], "r"]}], ")"}]}], ",", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"2", " ", "M"}], "r"]}], ")"}], 
        RowBox[{"-", "1"}]], ",", 
       SuperscriptBox["r", "2"], ",", 
       RowBox[{
        SuperscriptBox["r", "2"], 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], "}"}], "]"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
    "g"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.883206436899364*^9, 3.883206559767971*^9}, {
  3.8921912716449585`*^9, 3.8921912720406933`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"51894e1f-c647-47f7-8eaf-f70af507fd62"],

Cell[CellGroupData[{

Cell["\:8ba1\:7b97\:7ebf\:5143\:8868\:8fbe\:5f0f", "Subsection",
 CellChangeTimes->{{3.8832071070501595`*^9, 
  3.8832071101398554`*^9}},ExpressionUUID->"1a86a965-6f93-41de-9734-\
34659b50fd30"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lineElem", "=", 
  RowBox[{"SLineElement", "[", "]"}]}]], "Input",
 CellChangeTimes->{{3.8832065774601593`*^9, 3.883206580148495*^9}, {
   3.8832531812333765`*^9, 3.883253184941284*^9}, {3.883518125745824*^9, 
   3.883518127295898*^9}, 3.8864920103644886`*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"f7a913c3-d981-4c5e-ba14-be10ec6a809c"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "r"}], ")"}], "2"], 
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{"2", " ", "M"}], "r"]}]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     FractionBox[
      RowBox[{"2", " ", "M"}], "r"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "t"}], ")"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "\[Theta]"}], ")"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "\[Phi]"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.883206585175015*^9, {3.88325317511244*^9, 3.883253186186496*^9}, 
   3.88519188988369*^9, 3.886492028628952*^9, 3.8921912202913575`*^9, 
   3.892191273981243*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"7ae92b6a-1617-47d7-bf96-92b5987c70bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lineElem", "/.", 
  RowBox[{"{", 
   RowBox[{"M", "->", "0"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8832531774632998`*^9, 3.8832531950404377`*^9}, 
   3.883518130996045*^9},
 CellLabel->"In[98]:=",ExpressionUUID->"0bb0a95a-d0ed-4a6b-9937-51d4731375df"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "r"}], ")"}], "2"], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[DifferentialD]", "t"}], ")"}], "2"], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "\[Theta]"}], ")"}], "2"]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[DifferentialD]", "\[Phi]"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}]], "Output",
 CellChangeTimes->{3.8832531956840806`*^9, 3.885191891039931*^9, 
  3.8864920295632143`*^9, 3.8921912217774124`*^9, 3.8921912749498415`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"2a33422d-7b04-457a-854c-fda42b4ee59f"]
}, Open  ]],

Cell["\:663e\:7136\:ff0c\:5f53\:661f\:4f53\:8d28\:91cfM=0\:65f6\:ff0c\:53ef\
\:4ee5\:56de\:5f52\:5230\:95f5\:5f0f\:65f6\:7a7a", "Text",
 CellChangeTimes->{{3.8832532045401278`*^9, 
  3.8832532394791627`*^9}},ExpressionUUID->"4cb43439-e597-4196-8382-\
309a49fd6ce3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5728\:5408\:6cd5\:53d6\:503c\:8303\:56f4\:5185\:8ba1\:7b97\:4f53\:5143\
\:8868\:8fbe\:5f0f\:ff08\:6b63\:8d1f\:53f7\:53d6\:51b3\:4e8e\:5de6\:53f3\:624b\
\:7cfb\:ff09", "Subsection",
 CellChangeTimes->{{3.8832071140593414`*^9, 
  3.8832071399141145`*^9}},ExpressionUUID->"d559becc-d5e1-4c65-98ef-\
b5f14ae1e205"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"volEle", "=", 
  RowBox[{"Refine", "[", 
   RowBox[{
    RowBox[{"SVolumeElement", "[", "]"}], ",", 
    RowBox[{
     RowBox[{"r", ">=", "0"}], "&&", 
     RowBox[{"0", "<=", "\[Theta]", "<=", "Pi"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8832066013809233`*^9, 3.8832066039666057`*^9}, {
  3.8832067889202795`*^9, 3.8832068065172625`*^9}, {3.8864920324845285`*^9, 
  3.886492058256322*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"47eddeec-ad27-4dac-9f5c-d3287f7977da"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["r", "2"], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
  RowBox[{
   SubscriptBox[
    RowBox[{"\[DifferentialD]", "t"}], "a"], "\[Wedge]", 
   SubscriptBox[
    RowBox[{"\[DifferentialD]", "r"}], "b"], "\[Wedge]", 
   SubscriptBox[
    RowBox[{"\[DifferentialD]", "\[Theta]"}], "c"], "\[Wedge]", 
   SubscriptBox[
    RowBox[{"\[DifferentialD]", "\[Phi]"}], "d"]}]}]], "Output",
 CellChangeTimes->{
  3.883206608337613*^9, 3.8832068070512524`*^9, 3.8851918938773746`*^9, {
   3.886492042093156*^9, 3.8864920603458643`*^9}, 3.8921912236235476`*^9, 
   3.8921912765606604`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"711596d7-3df0-4391-a1f5-152b01308912"]
}, Open  ]],

Cell["\:6211\:4eec\:53ef\:4ee5\:8ba1\:7b97\:4f53\:5143\:7684\:5206\:91cf\:ff1a\
", "Text",
 CellChangeTimes->{{3.886492065808214*^9, 
  3.886492070858711*^9}},ExpressionUUID->"c8cd1ef1-62a6-4454-a3bc-\
b6c774fb233c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STCalcComponents", "[", "volEle", "]"}]], "Input",
 CellChangeTimes->{{3.8864920718422937`*^9, 3.8864920764047956`*^9}, 
   3.892191142643784*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"80fd4c55-9715-4394-92ab-c4752cd04cab"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\[ScriptCapitalT]", 
    TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]", "\[Delta]"}, 
     "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {"0", "0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}}, RowSpacings -> 
            1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {
             "0", "0", "0", "0"}, {"0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}, {"0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {"0", "0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}}, RowSpacings -> 
            1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}, {
             "0", "0", "0", "0"}, {
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {
             "0", "0", "0", "0"}, {"0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}, {
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}, {"0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", 
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0"}, {
             "0", "0", "0", "0"}, {
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              RowBox[{
                RowBox[{"-", 
                  SuperscriptBox["r", "2"]}], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0"}, {
              RowBox[{
                SuperscriptBox["r", "2"], " ", 
                RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}}, RowSpacings -> 1, ColumnSpacings -> 
       1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
      "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{3.8864920918861628`*^9, 3.892191224898924*^9, 
  3.892191277845577*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"5dee0370-35b3-4e05-b1c5-ba90817cd90f"]
}, Open  ]],

Cell["\:4f7f\:7528TensorSymmetry\:6765\:6c42\:51fa\:4f53\:5143\:7684\:5bf9\
\:79f0\:6027\:ff1a", "Text",
 CellChangeTimes->{{3.886492094911272*^9, 
  3.8864921101906157`*^9}},ExpressionUUID->"9f4a95fa-628a-40fd-b1cb-\
89b20c692134"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TensorSymmetry", "[", 
  RowBox[{"%", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.886492114738641*^9, 3.88649212074149*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"c43c6e12-a9b9-4654-93c7-1b5de664d7ac"],

Cell[BoxData[
 RowBox[{"Antisymmetric", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]], "Output",
 CellChangeTimes->{3.886492122472111*^9, 3.8921912270125713`*^9, 
  3.892191279182807*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"6751bca7-4da2-4eca-a495-10a19cb8d805"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\:8ba1\:7b97Riemann Tensor, Ricci Tensor, Ricci Scalar and Einstein Tensor\
\:ff0c\:9a8c\:8bc1\:65bd\:74e6\:897f\:5ea6\:89c4\:662f\:771f\:7a7a\:7231\:56e0\
\:65af\:5766\:65b9\:7a0b\:7684\:4e00\:4e2a\:5f2f\:66f2\:65f6\:7a7a\:89e3\:3002\
\>", "Subsection",
 CellChangeTimes->{{3.883207260675109*^9, 3.8832073119009976`*^9}, {
  3.883209835080614*^9, 
  3.8832098401290755`*^9}},ExpressionUUID->"c43600e6-d833-4754-8e99-\
669588c32a57"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "@@", 
  RowBox[{"(", 
   RowBox[{"STCalcTensor", "/@", 
    RowBox[{"{", 
     RowBox[{
     "\"\<RiemannTensor\>\"", ",", "\"\<RicciTensor\>\"", ",", 
      "\"\<RicciScalar\>\"", ",", "\"\<EinsteinTensor\>\""}], "}"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.883206831269618*^9, 3.8832069637060847`*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"7c61930d-bf92-4b2d-9218-96344aa02dd8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TemplateBox[{
     TemplateBox[{
       SubscriptBox["\"R\"", 
        TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\"", "\"\[Sigma]\""}, 
         "RowDefault"]], 
       TemplateBox[{"\"\[Rho]\""}, "RowDefault"]}, "Superscript", SyntaxForm -> 
      SuperscriptBox], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
               "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", 
                FractionBox[
                 RowBox[{"2", " ", "M", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
                 SuperscriptBox["r", "4"]], "0", "0"}, {
                FractionBox[
                 RowBox[{"2", " ", "M"}], 
                 RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                   SuperscriptBox["r", "2"]}]], "0", "0", "0"}, {
               "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", 
                FractionBox[
                 RowBox[{"M", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
                 SuperscriptBox["r", "4"]], "0"}, {"0", "0", "0", "0"}, {
                FractionBox["M", "r"], "0", "0", "0"}, {"0", "0", "0", "0"}}, 
              RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> 
              Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", "0", 
                FractionBox[
                 RowBox[{"M", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
                 SuperscriptBox["r", "4"]]}, {"0", "0", "0", "0"}, {
               "0", "0", "0", "0"}, {
                FractionBox[
                 RowBox[{"M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "r"], "0", 
                "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
              RowAlignments -> Baseline, ColumnAlignments -> Center], 
             "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", 
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", "M", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
                   SuperscriptBox["r", "4"]]}], "0", "0"}, {
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", "M"}], 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                    SuperscriptBox["r", "2"]}]]}], "0", "0", "0"}, {
               "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
               "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
                FractionBox["M", 
                 RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                   SuperscriptBox["r", "2"]}]], "0"}, {"0", 
                FractionBox["M", "r"], "0", "0"}, {"0", "0", "0", "0"}}, 
              RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> 
              Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
                FractionBox["M", 
                 RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                   SuperscriptBox["r", "2"]}]]}, {"0", "0", "0", "0"}, {"0", 
                FractionBox[
                 RowBox[{"M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "r"], "0", 
                "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> 
              Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", 
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"M", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
                   SuperscriptBox["r", "4"]]}], "0"}, {"0", "0", "0", "0"}, {
                RowBox[{"-", 
                  FractionBox["M", "r"]}], "0", "0", "0"}, {
               "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
              RowAlignments -> Baseline, ColumnAlignments -> Center], 
             "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
                RowBox[{"-", 
                  FractionBox["M", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                    SuperscriptBox["r", "2"]}]]}], "0"}, {"0", 
                RowBox[{"-", 
                  FractionBox["M", "r"]}], "0", "0"}, {"0", "0", "0", "0"}}, 
              RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> 
              Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
               "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
               "0", "0", "0", 
                FractionBox[
                 RowBox[{"2", " ", "M"}], "r"]}, {"0", "0", 
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", "M", " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "r"]}], 
                "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> 
              Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}]}, {
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", "0", 
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"M", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
                   SuperscriptBox["r", "4"]]}]}, {"0", "0", "0", "0"}, {
               "0", "0", "0", "0"}, {
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"M", " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "r"]}], 
                "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
              RowAlignments -> Baseline, ColumnAlignments -> Center], 
             "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
                RowBox[{"-", 
                  FractionBox["M", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                    SuperscriptBox["r", "2"]}]]}]}, {"0", "0", "0", "0"}, {
               "0", 
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"M", " ", 
                    SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "r"]}], 
                "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
              RowAlignments -> Baseline, ColumnAlignments -> Center], 
             "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
               "0", "0", "0", 
                RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", "M"}], "r"]}]}, {"0", "0", 
                FractionBox[
                 RowBox[{"2", " ", "M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "r"], 
                "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> 
              Baseline, ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
           RowBox[{"(", "\[NoBreak]", 
             
             GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
               "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
              ColumnSpacings -> 1, RowAlignments -> Baseline, 
              ColumnAlignments -> Center], "\[NoBreak]", ")"}]}}, RowSpacings -> 
         1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], "\[InvisibleSpace]", 
   TemplateBox[{
     SubscriptBox["\"R\"", 
      TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
          "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], "\[InvisibleSpace]", 
   TemplateBox[{"\"R\"", "\"=\"", 
     TagBox["0", 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"], "\[InvisibleSpace]", 
   TemplateBox[{
     SubscriptBox["\"G\"", 
      TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\""}, "RowDefault"]], "\"=\"", 
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
        GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
          "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
         ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
         Center], "\[NoBreak]", ")"}], 
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    "RowDefault"]}],
  SequenceForm[
   Row[{
     Superscript[
      Subscript["R", 
       Row[{"\[Mu]", "\[Nu]", "\[Sigma]"}]], 
      Row[{"\[Rho]"}]], "=", 
     MatrixForm[{{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
        0}}, {{0, 
          2 $CellContext`M (
           2 $CellContext`M - $CellContext`r) $CellContext`r^(-4), 0, 0}, {
         2 $CellContext`M (
            2 $CellContext`M - $CellContext`r)^(-1) $CellContext`r^(-2), 0, 0,
           0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{
         0, 0, $CellContext`M $CellContext`r^(-4) ((-2) $CellContext`M + \
$CellContext`r), 0}, {0, 0, 0, 0}, {$CellContext`M/$CellContext`r, 0, 0, 0}, {
         0, 0, 0, 0}}, {{
         0, 0, 0, $CellContext`M $CellContext`r^(-4) ((-2) $CellContext`M + \
$CellContext`r)}, {0, 0, 0, 0}, {0, 0, 0, 
         0}, {$CellContext`M $CellContext`r^(-1) Sin[$CellContext`\[Theta]]^2,
           0, 0, 0}}}, {{{
         0, (-2) $CellContext`M (
           2 $CellContext`M - $CellContext`r) $CellContext`r^(-4), 0, 
          0}, {(-2) $CellContext`M (
            2 $CellContext`M - $CellContext`r)^(-1) $CellContext`r^(-2), 0, 0,
           0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 
        0, 0, 0}, {0, 0, 0, 
        0}}, {{0, 0, 0, 0}, {
         0, 0, $CellContext`M (
            2 $CellContext`M - $CellContext`r)^(-1) $CellContext`r^(-2), 0}, {
         0, $CellContext`M/$CellContext`r, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 
         0}, {0, 0, 
          0, $CellContext`M (
            2 $CellContext`M - $CellContext`r)^(-1) $CellContext`r^(-2)}, {0, 
         0, 0, 0}, {
         0, $CellContext`M $CellContext`r^(-1) Sin[$CellContext`\[Theta]]^2, 
          0, 0}}}, {{{
         0, 0, -$CellContext`M $CellContext`r^(-4) ((-2) $CellContext`M + \
$CellContext`r), 0}, {0, 0, 0, 
         0}, {-$CellContext`M/$CellContext`r, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0,
          0, 0}, {
         0, 0, -$CellContext`M (
            2 $CellContext`M - $CellContext`r)^(-1) $CellContext`r^(-2), 0}, {
         0, -$CellContext`M/$CellContext`r, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 
        0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
        0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {
         0, 0, 0, 2 $CellContext`M/$CellContext`r}, {
         0, 0, (-2) $CellContext`M $CellContext`r^(-1) 
          Sin[$CellContext`\[Theta]]^2, 0}}}, {{{
         0, 0, 0, -$CellContext`M $CellContext`r^(-4) ((-2) $CellContext`M + \
$CellContext`r)}, {0, 0, 0, 0}, {0, 0, 0, 
         0}, {-$CellContext`M $CellContext`r^(-1) 
          Sin[$CellContext`\[Theta]]^2, 0, 0, 0}}, {{0, 0, 0, 0}, {
         0, 0, 0, -$CellContext`M (
            2 $CellContext`M - $CellContext`r)^(-1) $CellContext`r^(-2)}, {0, 
         0, 0, 0}, {
         0, -$CellContext`M $CellContext`r^(-1) Sin[$CellContext`\[Theta]]^2, 
          0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {
         0, 0, 0, (-2) $CellContext`M/$CellContext`r}, {
         0, 0, 2 $CellContext`M $CellContext`r^(-1) 
          Sin[$CellContext`\[Theta]]^2, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 
        0, 0, 0}, {0, 0, 0, 0}}}}]}], 
   Row[{
     Subscript["R", 
      Row[{"\[Mu]", "\[Nu]"}]], "=", 
     MatrixForm[{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}]}], 
   Row[{"R", "=", 
     MatrixForm[0]}], 
   Row[{
     Subscript["G", 
      Row[{"\[Mu]", "\[Nu]"}]], "=", 
     MatrixForm[{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}]}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.88320689054142*^9, 3.8832069168419847`*^9}, {
   3.883206954767988*^9, 3.8832069642819614`*^9}, 3.885068515919833*^9, {
   3.885191895630434*^9, 3.885191900421858*^9}, 3.892191229788223*^9, 
   3.8921912809822345`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[102]:=",ExpressionUUID->"e722c4cd-b9b1-403f-\
9179-ea251aa5f4a6"]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     "\:7531\:4e8e\:65bd\:74e6\:897f\:5ea6\:89c4\:662f\:771f\:7a7a\:7231\:56e0\
\:65af\:5766\:65b9\:7a0bR", 
     RowBox[{"a", " ", "b"}]], "=", "0"}], TraditionalForm]],ExpressionUUID->
  "133c98f1-6500-4b54-89a4-6cdada57cc11"],
 "\:7684\:4e00\:4e2a\:89e3\:ff0c\:56e0\:6b64Ricci Tensor, Ricci Scalar and \
Einstein Tensor \:90fd\:4e3a\:96f6\:ff0c\:800cRiemann \
Tensor\:975e\:96f6\:8bf4\:660e\:65f6\:7a7a\:662f\:5f2f\:66f2\:7684\:3002"
}], "Text",
 CellChangeTimes->{{3.883206983107546*^9, 3.88320707655197*^9}, {
  3.8852491118952446`*^9, 
  3.8852491128805227`*^9}},ExpressionUUID->"02fa758c-a340-4506-9d19-\
49815181ce1b"],

Cell["\:4e0b\:9762\:6c42\:89e3\:4e00\:4e0b\:65bd\:74e6\:897f\:5ea6\:89c4\:4e0b\
\:7684Weyl\:5f20\:91cf\:ff1a", "Text",
 CellChangeTimes->{{3.885249124163061*^9, 
  3.8852491467662115`*^9}},ExpressionUUID->"db49ef61-320d-4f55-acdb-\
9cb324f7bf5b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcTensor", "[", "\"\<WeylTensor\>\"", "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.885249148595002*^9, 3.885249161172085*^9}, {
  3.885249284168104*^9, 3.8852492971698112`*^9}, {3.8852493378023186`*^9, 
  3.8852493387676163`*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"249ff8f8-7e13-4120-ab5e-9b1ecb9c4e29"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\"C\"", 
    TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\"", "\"\[Sigma]\"", "\"\[Rho]\""}, 
     "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", "M"}], 
                 SuperscriptBox["r", "3"]]}], "0", "0"}, {
              FractionBox[
               RowBox[{"2", " ", "M"}], 
               SuperscriptBox["r", "3"]], "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0"}, {"0", "0", "0", "0"}, {
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0", "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               SuperscriptBox["r", "2"]]}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               SuperscriptBox["r", "2"]], "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              FractionBox[
               RowBox[{"2", " ", "M"}], 
               SuperscriptBox["r", "3"]], "0", "0"}, {
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", "M"}], 
                 SuperscriptBox["r", "3"]]}], "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
              FractionBox["M", 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]], "0"}, {"0", 
              RowBox[{"-", 
                FractionBox["M", 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}], "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]]}, {
             "0", "0", "0", "0"}, {"0", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}], "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0"}, {"0", "0", "0", "0"}, {
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0", "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
              RowBox[{"-", 
                FractionBox["M", 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}], "0"}, {"0", 
              FractionBox["M", 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]], "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", 
              RowBox[{"2", " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"0", "0", 
              RowBox[{
                RowBox[{"-", "2"}], " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               SuperscriptBox["r", "2"]]}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"M", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
                 SuperscriptBox["r", "2"]]}], "0", "0", "0"}}, RowSpacings -> 
            1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}]}, {
             "0", "0", "0", "0"}, {"0", 
              FractionBox[
               RowBox[{"M", " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]], "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", 
              RowBox[{
                RowBox[{"-", "2"}], " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"0", "0", 
              RowBox[{"2", " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}}, RowSpacings -> 1, ColumnSpacings -> 
       1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
      "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{{3.8852493294926467`*^9, 3.885249339217651*^9}, 
   3.892191232623921*^9, 3.892191282725051*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"c439e07d-5ea9-494f-a8a3-656f16c4e8cf"]
}, Open  ]],

Cell[TextData[{
 "\:4e5f\:53ef\:4ee5\:91c7\:7528\:5916\:5c14\:5f20\:91cf\:7684\:5b9a\:4e49\
\:5f0f\:ff1a",
 Cell[BoxData[
  RowBox[{
   SubscriptBox["C", "abcd"], "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      SubscriptBox["R", "abc"], "e"], 
     SubscriptBox["g", "de"]}], "-", 
    RowBox[{
     FractionBox["2", 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["g", 
         RowBox[{"a", "[", "c"}]], 
        SubscriptBox["R", 
         RowBox[{
          RowBox[{"d", "]"}], "b"}]]}], "-", 
       RowBox[{
        SubscriptBox["g", 
         RowBox[{"b", "[", "c"}]], 
        SubscriptBox["R", 
         RowBox[{
          RowBox[{"d", "]"}], "a"}]]}]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["2", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"n", "-", "2"}], ")"}]}]], 
     SubscriptBox["Rg", 
      RowBox[{"a", "[", "c"}]], 
     SubscriptBox["g", 
      RowBox[{
       RowBox[{"d", "]"}], "b"}]]}]}]}]], "InlineCode",ExpressionUUID->
  "40dc0dc7-c4b8-4794-92fa-05567a55374b"],
 "\n\:9996\:5148\:6c42\:51faRiemann\:5f20\:91cf\:3001Ricci\:5f20\:91cf\:548c\
Ricci\:6807\:91cf\:ff0c\:8fd9\:91cc\:7ef4\:6570n=4"
}], "Text",
 CellChangeTimes->{{3.8852493502589207`*^9, 3.8852493715051413`*^9}, {
  3.885249901683447*^9, 3.885250079261851*^9}, {3.8852501623583527`*^9, 
  3.88525016798164*^9}},ExpressionUUID->"bcc8f08d-ed2e-4549-be5a-\
ca22a4092935"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetTensor", "[", 
    RowBox[{
     SuperscriptBox[
      SubscriptBox["R", "abc"], "d"], ",", 
     RowBox[{
      RowBox[{"STCalcTensor", "[", "\"\<RiemannTensor\>\"", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}], "]"}], ";"}], 
  RowBox[{"(*", "\:9ece\:66fc\:5f20\:91cf", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetTensor", "[", 
    RowBox[{
     SubscriptBox["R", "ab"], ",", 
     RowBox[{
      RowBox[{"STCalcTensor", "[", "\"\<RicciTensor\>\"", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}]}], "]"}], ";"}], 
  RowBox[{"(*", "\:91cc\:5947\:5f20\:91cf", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"STCalcTensor", "[", "\"\<RicciScalar\>\"", "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], ";"}], 
  RowBox[{"(*", "\:91cc\:5947\:6807\:91cf", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8852500941978874`*^9, 3.885250134730691*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"474f2eb0-a8b9-48a0-b888-7f5ae1a866d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"weylDef", "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["g", "de"], 
      SuperscriptBox[
       SubscriptBox["R", "abc"], "e"]}], "-", 
     RowBox[{
      FractionBox["2", 
       RowBox[{"4", "-", "2"}]], 
      RowBox[{"STAntiSymmetrize", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["g", "ac"], 
          SubscriptBox["R", "db"]}], "-", 
         RowBox[{
          SubscriptBox["g", "bc"], 
          SubscriptBox["R", "da"]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "d"}], "}"}]}], "]"}]}], "+", 
     RowBox[{
      FractionBox["2", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"4", "-", "1"}], ")"}], 
        RowBox[{"(", 
         RowBox[{"4", "-", "2"}], ")"}]}]], "*", "rs", "*", 
      RowBox[{"STAntiSymmetrize", "[", 
       RowBox[{
        RowBox[{
         SubscriptBox["g", "ac"], 
         SubscriptBox["g", "db"]}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", "d"}], "}"}]}], "]"}]}]}]}], ";"}], 
  RowBox[{"(*", "Weyl\:5f20\:91cf\:5b9a\:4e49\:5f0f", "*)"}]}]], "Input",
 CellChangeTimes->{{3.885250140593465*^9, 3.88525020878211*^9}, {
  3.8852505768108134`*^9, 3.8852505825312843`*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"49192641-6a0e-4170-9ab1-7521fa6aadb2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcComponents", "[", "weylDef", "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.885250210252041*^9, 3.8852502264513755`*^9}, 
   3.8921911426527615`*^9},
 CellLabel->
  "In[108]:=",ExpressionUUID->"cbf1c5cd-f948-4299-953a-967f4cce89b1"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\[ScriptCapitalT]", 
    TemplateBox[{"\[Alpha]", "\[Beta]", "\[Gamma]", "\[Delta]"}, 
     "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", "M"}], 
                 SuperscriptBox["r", "3"]]}], "0", "0"}, {
              FractionBox[
               RowBox[{"2", " ", "M"}], 
               SuperscriptBox["r", "3"]], "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0"}, {"0", "0", "0", "0"}, {
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0", "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               SuperscriptBox["r", "2"]]}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               SuperscriptBox["r", "2"]], "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", 
              FractionBox[
               RowBox[{"2", " ", "M"}], 
               SuperscriptBox["r", "3"]], "0", "0"}, {
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", "M"}], 
                 SuperscriptBox["r", "3"]]}], "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
              FractionBox["M", 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]], "0"}, {"0", 
              RowBox[{"-", 
                FractionBox["M", 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}], "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]]}, {
             "0", "0", "0", "0"}, {"0", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}], "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0"}, {"0", "0", "0", "0"}, {
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "M"}], "+", "r"}], ")"}]}], 
               SuperscriptBox["r", "2"]], "0", "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", 
              RowBox[{"-", 
                FractionBox["M", 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}], "0"}, {"0", 
              FractionBox["M", 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]], "0", "0"}, {
             "0", "0", "0", "0"}}, RowSpacings -> 1, ColumnSpacings -> 1, 
            RowAlignments -> Baseline, ColumnAlignments -> Center], 
           "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", 
              RowBox[{"2", " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"0", "0", 
              RowBox[{
                RowBox[{"-", "2"}], " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", 
              FractionBox[
               RowBox[{"M", " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               SuperscriptBox["r", "2"]]}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"M", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "M"}], "-", "r"}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
                 SuperscriptBox["r", "2"]]}], "0", "0", "0"}}, RowSpacings -> 
            1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{"M", " ", 
                   SuperscriptBox[
                    RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
                 RowBox[{
                   RowBox[{"2", " ", "M"}], "-", "r"}]]}]}, {
             "0", "0", "0", "0"}, {"0", 
              FractionBox[
               RowBox[{"M", " ", 
                 SuperscriptBox[
                  RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
               RowBox[{
                 RowBox[{"2", " ", "M"}], "-", "r"}]], "0", "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", 
              RowBox[{
                RowBox[{"-", "2"}], " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, {"0", "0", 
              RowBox[{"2", " ", "M", " ", "r", " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0"}}, 
            RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, 
            ColumnAlignments -> Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}}, RowSpacings -> 1, ColumnSpacings -> 
       1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
      "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.8852502267948956`*^9, {3.892191236889353*^9, 3.892191250199107*^9}, 
   3.8921912868730793`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"e744bffb-c64f-4662-8d64-f09a895897bb"]
}, Open  ]],

Cell["\:53ef\:4ee5\:770b\:5230\:4e8c\:8005\:662f\:76f8\:7b49\:7684\:3002", \
"Text",
 CellChangeTimes->{{3.8852502332083044`*^9, 3.885250291903804*^9}, {
  3.8852503275373325`*^9, 3.885250333937297*^9}, {3.892191300122387*^9, 
  3.8921913007509427`*^9}},ExpressionUUID->"adc7ce04-12b4-4a34-8892-\
6a2c168ea848"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5404\:5411\:540c\:6027\:5750\:6807\:7cfb\:4e0b\:7684RW\:89e3 \
Robertson-Walker Metric", "Section",
 CellChangeTimes->{{3.883623003435071*^9, 3.8836230157673693`*^9}, {
  3.883641826932126*^9, 
  3.883641840551838*^9}},ExpressionUUID->"ebef2e91-e2b1-4c03-beed-\
427a5410a391"],

Cell[BoxData[
 RowBox[{"SetMetric", "[", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      FractionBox[
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], "^", "2"}], 
       RowBox[{"1", "-", 
        RowBox[{"k", " ", 
         RowBox[{"r", "^", "2"}]}]}]], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], "^", "2"}], "*", 
       RowBox[{"r", "^", "2"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", "t", "]"}], "^", "2"}], "*", 
       RowBox[{"r", "^", "2"}], "*", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}], "]"}], 
   ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[CurlyPhi]"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.883623019270074*^9, 3.883623141625085*^9}, {
  3.8851919144563036`*^9, 3.885191915690113*^9}, {3.885192001076474*^9, 
  3.885192001262355*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"c4b912bb-03d8-489a-a616-72c95efd9e59"],

Cell["\:8fd9\:91cc\:53ef\:4ee5\:770b\:5230\:5728Robertson-Walker\:5ea6\:89c4\
\:4e0b\:7684Weyl\:5f20\:91cf\:4e3a\:96f6\:ff0c\:8bf4\:660eRW\:5ea6\:89c4\:662f\
\:5171\:6027\:5e73\:76f4\:7684\:3002", "Text",
 CellChangeTimes->{{3.885460185869318*^9, 3.885460222476979*^9}, {
  3.8869277882407055`*^9, 3.8869278131697626`*^9}, {3.8872719528667536`*^9, 
  3.8872719551411943`*^9}},ExpressionUUID->"60b74e37-f2a2-422b-8d49-\
d187c8767a90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"STCalcTensor", "[", "\"\<WeylTensor\>\"", "]"}], "//", 
  "Simplify"}]], "Input",
 CellLabel->
  "In[111]:=",ExpressionUUID->"9d370189-6360-4188-bdf4-587a04c35963"],

Cell[BoxData[
 TemplateBox[{
   SubscriptBox["\"C\"", 
    TemplateBox[{"\"\[Mu]\"", "\"\[Nu]\"", "\"\[Sigma]\"", "\"\[Rho]\""}, 
     "RowDefault"]], "\"=\"", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}, {
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}], 
         RowBox[{"(", "\[NoBreak]", 
           
           GridBox[{{"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {
             "0", "0", "0", "0"}, {"0", "0", "0", "0"}}, RowSpacings -> 1, 
            ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> 
            Center], "\[NoBreak]", ")"}]}}, RowSpacings -> 1, ColumnSpacings -> 
       1, RowAlignments -> Baseline, ColumnAlignments -> Center], 
      "\[NoBreak]", ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{3.8854602315478945`*^9, 3.892191317115181*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"6e063409-6289-40b1-a274-251a837a712d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1141.2, 574.8},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1. Inherited,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (2023\:5e741\:670830\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"3bb94807-8dec-417d-81d6-0d0f557de3b2"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 259, 4, 98, "Title",ExpressionUUID->"992f1165-6867-4b9b-9b9b-e95a71e152ea"],
Cell[CellGroupData[{
Cell[864, 30, 159, 3, 67, "Section",ExpressionUUID->"f2abca9b-adfd-446a-98c1-49c2a9d4d7f0"],
Cell[1026, 35, 1140, 18, 108, "Abstract",ExpressionUUID->"f48400a9-7722-4ae8-9524-f98a20f68500"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2203, 58, 228, 4, 67, "Section",ExpressionUUID->"cd6311c4-4fd7-49b8-b6bd-bb6463c3a388"],
Cell[CellGroupData[{
Cell[2456, 66, 221, 4, 54, "Subsection",ExpressionUUID->"6576790c-9f70-4ead-befd-53a043c5c7c9"],
Cell[2680, 72, 490, 7, 35, "Text",ExpressionUUID->"330e8f1c-4728-483f-9114-cb105092065c"],
Cell[3173, 81, 345, 8, 43, "Input",ExpressionUUID->"5be65ce5-ee35-4e15-90c0-2f0ac0e85fcb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3555, 94, 244, 4, 54, "Subsection",ExpressionUUID->"be830d1a-209d-4a77-b294-177f90002875"],
Cell[3802, 100, 230, 4, 35, "Text",ExpressionUUID->"4a8e168f-88d9-454b-bec2-7f49a371578b"],
Cell[4035, 106, 690, 16, 43, "Input",ExpressionUUID->"56e704cd-2e17-4ea2-86e4-b7fca854df1c"],
Cell[4728, 124, 430, 11, 35, "Text",ExpressionUUID->"82cf8e41-158d-4104-b64b-9ea43e9b4184"],
Cell[5161, 137, 197, 3, 28, "Input",ExpressionUUID->"e0fc13ed-95c3-4209-9a62-d845bf3cbb39"],
Cell[5361, 142, 218, 3, 43, "Input",ExpressionUUID->"67169ae6-624e-4aa0-acac-2d2ba4354708"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5628, 151, 173, 3, 67, "Section",ExpressionUUID->"2ff23862-30a4-43bb-9cd7-edae600810cb"],
Cell[5804, 156, 223, 4, 35, "Text",ExpressionUUID->"452a6e54-733f-4562-b941-81538d928e05"],
Cell[CellGroupData[{
Cell[6052, 164, 195, 3, 28, "Input",ExpressionUUID->"67c1b7a1-ab49-4a4e-8d7a-793dbefa66d5"],
Cell[6250, 169, 13578, 324, 202, "Output",ExpressionUUID->"07463082-9a3b-4fc2-bcef-5f14085c9ce9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19877, 499, 173, 3, 67, "Section",ExpressionUUID->"2937bdc0-83bb-48db-99d1-4c2d0a03f2f3"],
Cell[CellGroupData[{
Cell[20075, 506, 172, 3, 54, "Subsection",ExpressionUUID->"2cf0547c-22e1-44c9-8430-8bf337689341"],
Cell[20250, 511, 314, 5, 35, "Text",ExpressionUUID->"1211a31b-f51e-487a-890d-faf234cfc72c"],
Cell[CellGroupData[{
Cell[20589, 520, 344, 6, 33, "Input",ExpressionUUID->"29056a03-1185-4c10-9a32-4b7545eeeeb0"],
Cell[20936, 528, 413, 10, 32, "Output",ExpressionUUID->"4d16333f-95d3-4b2e-b17d-115fd00ca029"]
}, Open  ]],
Cell[21364, 541, 587, 11, 58, "Text",ExpressionUUID->"5c00e9c1-fcc9-4fa4-9e4e-e96bcd3112bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21988, 557, 204, 3, 54, "Subsection",ExpressionUUID->"9b23f368-08a7-4775-a5d3-53455ab635be"],
Cell[22195, 562, 335, 5, 35, "Text",ExpressionUUID->"1b3073df-8d81-4f79-9ea0-c6c12ec34818"],
Cell[22533, 569, 449, 13, 33, "Input",ExpressionUUID->"5e554bb4-b06a-431f-b238-a8741b6d89fc"],
Cell[CellGroupData[{
Cell[23007, 586, 302, 4, 28, "Input",ExpressionUUID->"3a927a4f-bcfb-4d1b-a76c-35fc8966d135"],
Cell[23312, 592, 740, 20, 32, "Output",ExpressionUUID->"8276f2cf-e286-4a97-a63f-4a5020c45fcf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24089, 617, 203, 3, 43, "Input",ExpressionUUID->"dd274bfe-a847-4cfd-877a-0fda5780fa70"],
Cell[24295, 622, 973, 28, 46, "Output",ExpressionUUID->"19bef5ac-21fd-4a1a-b8f0-341e840d5d3d"]
}, Open  ]],
Cell[25283, 653, 860, 21, 35, "Text",ExpressionUUID->"706abe68-fed2-4589-a5ba-0b039ce905b8"],
Cell[CellGroupData[{
Cell[26168, 678, 205, 3, 28, "Input",ExpressionUUID->"5b513699-a459-411e-9a07-bc84f71818d4"],
Cell[26376, 683, 587, 18, 48, "Output",ExpressionUUID->"ddcb89ad-4151-49c2-88a9-54c767bb0cb6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27012, 707, 198, 3, 54, "Subsection",ExpressionUUID->"7b7b8ec5-9d82-44b5-b26a-df80bc04e09b"],
Cell[27213, 712, 465, 13, 35, "Text",ExpressionUUID->"d905f57e-c1e6-43c0-92c6-a01ebf4fe108"],
Cell[CellGroupData[{
Cell[27703, 729, 351, 7, 28, "Input",ExpressionUUID->"fae79243-ef81-4a88-b67b-55119a154aa3"],
Cell[28057, 738, 3917, 115, 88, "Output",ExpressionUUID->"b7d26e82-f702-40c8-8803-b3416db95295"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32011, 858, 203, 3, 28, "Input",ExpressionUUID->"8157e03e-e7da-43fb-b135-e70b1d87a12b"],
Cell[32217, 863, 2878, 87, 62, "Output",ExpressionUUID->"0fbb2dad-b2d3-476a-be5f-34299b94854d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35132, 955, 303, 6, 28, "Input",ExpressionUUID->"7426e480-e151-4fd9-b473-97f25450df99"],
Cell[35438, 963, 3896, 115, 88, "Output",ExpressionUUID->"54e058d8-19a4-421f-bbd3-dbb63ed997a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39371, 1083, 202, 3, 28, "Input",ExpressionUUID->"18847be7-305f-44c0-b66f-dfefd3ea5a44"],
Cell[39576, 1088, 2859, 87, 62, "Output",ExpressionUUID->"3eb5dfab-0714-4f13-bc7a-cd2dc5383ec0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42484, 1181, 180, 3, 54, "Subsection",ExpressionUUID->"8981000e-1d44-4608-bdbd-c8f0d4003e4c"],
Cell[42667, 1186, 374, 6, 35, "Text",ExpressionUUID->"e78453fb-f96b-40c6-8176-f2a0f311bf27"],
Cell[43044, 1194, 283, 5, 28, "Input",ExpressionUUID->"b5c93dbc-2db0-4cb7-a931-e58651fd3d84"],
Cell[43330, 1201, 270, 4, 35, "Text",ExpressionUUID->"d088965f-2285-4a90-a242-ceba267cd000"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43637, 1210, 218, 4, 54, "Subsection",ExpressionUUID->"40cd7827-9f86-4793-acf6-935b40aebe27"],
Cell[43858, 1216, 857, 19, 65, "Text",ExpressionUUID->"8b665e45-7ff5-4556-958e-14c5a1348a7e"],
Cell[44718, 1237, 210, 3, 50, "Code",ExpressionUUID->"80fa8022-d13b-4dd6-8b0f-32646883838d"],
Cell[44931, 1242, 2051, 44, 249, "Text",ExpressionUUID->"661bf792-bd4b-4e55-8715-5aa3022d60f8"],
Cell[46985, 1288, 459, 13, 50, "Code",ExpressionUUID->"014f4e55-831f-471b-8bf3-55f2c2b4db2b"],
Cell[47447, 1303, 1308, 28, 145, "Text",ExpressionUUID->"e842e011-564b-4d07-b945-91372c57936c"],
Cell[48758, 1333, 483, 13, 50, "Code",ExpressionUUID->"287aacc0-e8e8-4aeb-86b5-7ef1c14cf6d1"],
Cell[49244, 1348, 324, 5, 35, "Text",ExpressionUUID->"15ae11d0-1ffc-471f-ba5d-cbbb1e386686"],
Cell[49571, 1355, 347, 7, 50, "Code",ExpressionUUID->"2a9cb110-fa02-4b71-b04a-260445a41faa"],
Cell[49921, 1364, 296, 5, 35, "Text",ExpressionUUID->"21ddc75a-2f0b-4623-8130-f854214efbe9"],
Cell[CellGroupData[{
Cell[50242, 1373, 629, 17, 53, "Code",ExpressionUUID->"f7628190-f915-4548-9b5e-db58c8ccbe06"],
Cell[50874, 1392, 1538, 42, 65, "Output",ExpressionUUID->"55b5c380-fea9-4e26-9d1e-4b7b87a2c8b0"]
}, Open  ]],
Cell[52427, 1437, 659, 17, 35, "Text",ExpressionUUID->"6198f148-42ae-42e4-85b2-4db02a5094ec"],
Cell[CellGroupData[{
Cell[53111, 1458, 308, 6, 50, "Code",ExpressionUUID->"b3f2adbd-30a9-4a7f-9412-c484547dd7ed"],
Cell[53422, 1466, 440, 13, 46, "Output",ExpressionUUID->"30b82e63-cb54-4e81-bcdf-327613484456"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53899, 1484, 334, 8, 50, "Code",ExpressionUUID->"f27fb8d4-d92f-46e0-a723-2ee51bfb24d3"],
Cell[54236, 1494, 412, 12, 46, "Output",ExpressionUUID->"14290ca0-64ad-4790-a8a6-5a6b1224c0c1"]
}, Open  ]],
Cell[54663, 1509, 625, 9, 35, "Text",ExpressionUUID->"67872174-f20e-42bb-bef3-4500b9a9e689"],
Cell[CellGroupData[{
Cell[55313, 1522, 200, 3, 45, "Subsubsection",ExpressionUUID->"555bcd6d-ae97-4b75-934b-f672072d0d3e"],
Cell[55516, 1527, 416, 10, 35, "Text",ExpressionUUID->"2976e64c-2e51-4365-8cf6-851c5bec47dc"],
Cell[55935, 1539, 496, 13, 50, "Code",ExpressionUUID->"dd7674b9-15bf-4974-9423-30b234c8a22b"],
Cell[56434, 1554, 488, 9, 58, "Text",ExpressionUUID->"ea0ca808-1fd9-439e-a000-c8fb5f2c7142"],
Cell[56925, 1565, 620, 17, 50, "Code",ExpressionUUID->"f9203a9d-a278-43be-ae0b-822793512356"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57606, 1589, 159, 3, 67, "Section",ExpressionUUID->"47219a87-737a-4bed-ab6e-73e491fb1994"],
Cell[57768, 1594, 338, 5, 35, "Text",ExpressionUUID->"7cb567fb-7ba7-42fd-95b2-1dd8111b8df5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58143, 1604, 303, 4, 67, "Section",ExpressionUUID->"40a40f9a-2726-4091-a0ac-880d37a267f4"],
Cell[CellGroupData[{
Cell[58471, 1612, 368, 9, 54, "Subsection",ExpressionUUID->"2b50e99e-85a6-4d22-b558-82889407af93"],
Cell[58842, 1623, 446, 10, 43, "Input",ExpressionUUID->"4c0176ed-f12a-4141-8286-863b36329f2d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59325, 1638, 186, 3, 54, "Subsection",ExpressionUUID->"4cabbc8c-8cf0-4809-8c62-41870e3662d4"],
Cell[59514, 1643, 1212, 35, 72, "Input",ExpressionUUID->"2511865f-9a73-48c9-9738-1ae4b269a7b4"],
Cell[CellGroupData[{
Cell[60751, 1682, 468, 10, 28, "Input",ExpressionUUID->"14010031-63e0-427a-9e55-13efb47242f9"],
Cell[61222, 1694, 2811, 75, 48, "Output",ExpressionUUID->"848b3e8f-bfb1-4f16-8e70-c9218b3c2fb5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[64082, 1775, 174, 3, 54, "Subsection",ExpressionUUID->"ab0ae260-0d80-454a-87d8-99a522f87f1c"],
Cell[64259, 1780, 593, 17, 43, "Input",ExpressionUUID->"cfffa7a2-db6a-436e-8b4a-b1771d3eb1b0"],
Cell[64855, 1799, 344, 5, 35, "Text",ExpressionUUID->"122d86ab-77c7-47b7-aad5-a16e8a8534cf"],
Cell[CellGroupData[{
Cell[65224, 1808, 325, 6, 28, "Input",ExpressionUUID->"2c421eef-05f4-4eae-b215-fef9975e173d"],
Cell[65552, 1816, 3136, 83, 57, "Output",ExpressionUUID->"da716be9-9eb6-4a18-97f3-fb6ce0509d7d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68737, 1905, 261, 5, 54, "Subsection",ExpressionUUID->"b711ed81-3080-4a2c-b579-534476d4c38e"],
Cell[69001, 1912, 1054, 30, 72, "Input",ExpressionUUID->"aac9ed9e-6f18-4491-8929-77a60386fb40"],
Cell[70058, 1944, 307, 5, 35, "Text",ExpressionUUID->"22dc37b8-cf6c-4e73-8c9b-9ea364699f55"],
Cell[CellGroupData[{
Cell[70390, 1953, 1081, 31, 47, "Input",ExpressionUUID->"00bf0f69-856b-40e6-ab0d-985ea8b40b5a"],
Cell[71474, 1986, 1301, 35, 46, "Print",ExpressionUUID->"71935ca0-ae48-456a-a355-575de841e294"]
}, Open  ]],
Cell[72790, 2024, 288, 5, 35, "Text",ExpressionUUID->"fc9caaa6-84f4-4edc-bcdb-c95240f09d3d"],
Cell[CellGroupData[{
Cell[73103, 2033, 447, 12, 33, "Input",ExpressionUUID->"6cae33b6-4eb6-4e82-83d8-946535e8fa07"],
Cell[73553, 2047, 741, 22, 35, "Output",ExpressionUUID->"ba8d985e-5b0c-4a2f-b9f6-7226d637d54b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74355, 2076, 242, 4, 67, "Section",ExpressionUUID->"d4154b68-bc71-48f8-98b3-52564578e858"],
Cell[74600, 2082, 417, 10, 45, "Input",ExpressionUUID->"c4133df8-0af8-421e-a348-24c5b321f2ec"],
Cell[CellGroupData[{
Cell[75042, 2096, 294, 5, 54, "Subsection",ExpressionUUID->"f48d10e0-4b28-4dea-bc53-644381045d09"],
Cell[75339, 2103, 310, 5, 35, "Text",ExpressionUUID->"43d726b8-cf6e-4fc1-b1de-e3d59c88603e"],
Cell[CellGroupData[{
Cell[75674, 2112, 992, 28, 33, "Input",ExpressionUUID->"4d1797ac-c62e-40c9-9802-b4f0ddcb0472"],
Cell[76669, 2142, 1348, 31, 48, "Output",ExpressionUUID->"488e1850-744d-4184-ae8d-85ad83257b0e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78066, 2179, 255, 4, 54, "Subsection",ExpressionUUID->"421a18a8-82a6-4f35-8bef-1c0be906e88d"],
Cell[CellGroupData[{
Cell[78346, 2187, 232, 3, 28, "Input",ExpressionUUID->"2a63c7ca-d4c1-4aff-a53f-fbf8ac19c65c"],
Cell[78581, 2192, 1606, 37, 84, "Output",ExpressionUUID->"be08e063-cb38-46d7-b1a6-1a1930843c24"]
}, Open  ]],
Cell[80202, 2232, 689, 12, 58, "Text",ExpressionUUID->"b3c04a52-daba-496d-8578-4903145f95ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80928, 2249, 194, 3, 54, "Subsection",ExpressionUUID->"b3b6393a-c496-4840-b730-5ab9cd6d222f"],
Cell[CellGroupData[{
Cell[81147, 2256, 256, 4, 28, "Input",ExpressionUUID->"f9cdd3b4-f170-4396-bb74-7863fae18cf6"],
Cell[81406, 2262, 490, 12, 32, "Output",ExpressionUUID->"6c96e620-fcb8-401c-b9e7-79ef0a2578d0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[81945, 2280, 283, 5, 54, "Subsection",ExpressionUUID->"5975062f-3d29-49e2-90f7-7bf2613ad867"],
Cell[CellGroupData[{
Cell[82253, 2289, 369, 7, 43, "Input",ExpressionUUID->"e0384c47-0e93-443a-be6a-8b8daf48eb8d"],
Cell[82625, 2298, 473, 10, 32, "Output",ExpressionUUID->"a33a1bbe-b28a-42d5-9df1-6a2c0d2eb555"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[83159, 2315, 399, 11, 67, "Section",ExpressionUUID->"13a82c57-1311-4633-908c-e568dcaa7d2c"],
Cell[83561, 2328, 844, 18, 45, "Input",ExpressionUUID->"4199665b-5dd7-4639-b6fc-dc08267433f9"],
Cell[CellGroupData[{
Cell[84430, 2350, 232, 4, 54, "Subsection",ExpressionUUID->"d2030c6f-88f4-4267-8edb-2f8df55ee317"],
Cell[CellGroupData[{
Cell[84687, 2358, 281, 4, 28, "Input",ExpressionUUID->"95888753-d087-4b5a-a048-793318a85902"],
Cell[84971, 2364, 2030, 45, 84, "Output",ExpressionUUID->"a0d138c4-ea39-4c16-bd83-7019a3104dc7"]
}, Open  ]],
Cell[87016, 2412, 549, 13, 28, "Input",ExpressionUUID->"b3137b32-979d-47ff-ba33-a75712a4354c"],
Cell[87568, 2427, 455, 7, 35, "Text",ExpressionUUID->"ffff4e7f-d70c-4b3a-b9e4-6f6a3d091d44"],
Cell[CellGroupData[{
Cell[88048, 2438, 363, 7, 43, "Input",ExpressionUUID->"6f4b6ff8-0ca8-4db7-b72c-47b83ec74e52"],
Cell[88414, 2447, 1748, 49, 66, "Output",ExpressionUUID->"28293642-7b08-405a-a67f-07ca83eeff99"]
}, Open  ]],
Cell[90177, 2499, 340, 6, 35, "Text",ExpressionUUID->"043a48cb-bdc5-482f-99d3-8bd0f8b3fe9a"],
Cell[CellGroupData[{
Cell[90542, 2509, 281, 5, 28, "Input",ExpressionUUID->"70e56b49-4e85-46fd-9dca-bfb037e086a9"],
Cell[90826, 2516, 3230, 86, 84, "Output",ExpressionUUID->"e62a9d8f-b6f2-420f-9a69-823eebdfc376"]
}, Open  ]],
Cell[94071, 2605, 645, 12, 58, "Text",ExpressionUUID->"197ce006-edd0-43a7-95db-71e85ce107b4"],
Cell[CellGroupData[{
Cell[94741, 2621, 335, 7, 43, "Input",ExpressionUUID->"0cc4d60c-a536-4dfd-b475-413a99f75bc2"],
Cell[95079, 2630, 214, 3, 32, "Output",ExpressionUUID->"578ec0b4-209d-4435-9570-1dfd06fe6ed5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95330, 2638, 313, 6, 28, "Input",ExpressionUUID->"ef1927e6-e348-4f18-9a79-c27e29f3353f"],
Cell[95646, 2646, 753, 22, 32, "Output",ExpressionUUID->"bfbaee09-c044-4d55-a913-c89869741191"]
}, Open  ]],
Cell[96414, 2671, 242, 4, 35, "Text",ExpressionUUID->"69140d98-4117-4394-a41d-6c89a373e1b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96693, 2680, 206, 3, 54, "Subsection",ExpressionUUID->"82e5a9ed-eb43-4276-8387-1154781deee9"],
Cell[CellGroupData[{
Cell[96924, 2687, 229, 3, 28, "Input",ExpressionUUID->"b837fef5-99d1-41b1-885c-6a91286299bf"],
Cell[97156, 2692, 2163, 45, 88, "Output",ExpressionUUID->"3a72d489-6d0f-4566-b600-c150a13034c9"]
}, Open  ]],
Cell[99334, 2740, 544, 13, 28, "Input",ExpressionUUID->"bc633692-a962-41b2-a93a-6035e07498da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99915, 2758, 232, 4, 54, "Subsection",ExpressionUUID->"3d70a709-d9c7-43b2-a1da-4ae14c9ffc7c"],
Cell[100150, 2764, 508, 14, 48, "Input",ExpressionUUID->"51cb0a24-81ea-4746-af31-976db3cda06e"],
Cell[CellGroupData[{
Cell[100683, 2782, 928, 24, 33, "Input",ExpressionUUID->"2e58f367-3541-4c3d-8252-98202d5ae438"],
Cell[101614, 2808, 3581, 82, 88, "Output",ExpressionUUID->"ed565d62-40d1-460f-8c25-6cc5ad2ab80d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105232, 2895, 1344, 41, 33, "Input",ExpressionUUID->"62beb865-aec0-48d6-a618-78cc0687c836"],
Cell[106579, 2938, 3516, 80, 102, "Output",ExpressionUUID->"233d1328-36dc-4bec-98ce-fde9eb62849e"]
}, Open  ]],
Cell[110110, 3021, 405, 6, 35, "Text",ExpressionUUID->"3143aafc-0fba-4d49-8a28-094c4f319025"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110552, 3032, 204, 3, 54, "Subsection",ExpressionUUID->"61684444-8905-4ce1-8091-a9430c9c5a44"],
Cell[CellGroupData[{
Cell[110781, 3039, 230, 3, 28, "Input",ExpressionUUID->"4626a2b1-7696-47b3-9162-bc6918ff785e"],
Cell[111014, 3044, 850, 19, 50, "Output",ExpressionUUID->"ee9e1cd1-b443-41ff-b69f-30c3f4fd6c6d"]
}, Open  ]],
Cell[111879, 3066, 530, 13, 28, "Input",ExpressionUUID->"544fd9ac-fad6-4a14-9533-94992e1e037a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112446, 3084, 186, 3, 54, "Subsection",ExpressionUUID->"5a5ef315-c6bf-4927-878a-d268ea411a0b"],
Cell[CellGroupData[{
Cell[112657, 3091, 230, 3, 28, "Input",ExpressionUUID->"5bbe4656-747a-42c0-9361-c61649628f20"],
Cell[112890, 3096, 542, 13, 49, "Output",ExpressionUUID->"9df96da0-213e-49ee-9194-60fd082f8d75"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[113481, 3115, 220, 4, 54, "Subsection",ExpressionUUID->"1b2b4bcf-25ba-4e67-882f-9e6325045556"],
Cell[CellGroupData[{
Cell[113726, 3123, 231, 3, 28, "Input",ExpressionUUID->"9c4af208-c3d8-49b8-9f38-2c7aa8a4e754"],
Cell[113960, 3128, 741, 16, 48, "Output",ExpressionUUID->"8084a5b5-bc87-4fdb-973f-c99ec78242b9"]
}, Open  ]],
Cell[114716, 3147, 535, 13, 28, "Input",ExpressionUUID->"31402982-cccd-4378-9a63-441044640653"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115288, 3165, 225, 4, 54, "Subsection",ExpressionUUID->"b2676548-d95b-492e-bde9-542577f2ef94"],
Cell[CellGroupData[{
Cell[115538, 3173, 213, 3, 28, "Input",ExpressionUUID->"d4a150a4-0243-4774-9499-227887c8429c"],
Cell[115754, 3178, 2589, 59, 88, "Output",ExpressionUUID->"73b968f0-8b5b-4c12-9372-3c4e187a71ec"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[118392, 3243, 490, 12, 54, "Subsection",ExpressionUUID->"001b5425-a896-45c5-a2c4-c0213d9d11b7"],
Cell[CellGroupData[{
Cell[118907, 3259, 521, 10, 28, "Input",ExpressionUUID->"c6f9864c-6958-4ebf-ab4c-8f9c641c7d40"],
Cell[119431, 3271, 2039, 44, 88, "Output",ExpressionUUID->"7b76e007-66ac-4afe-9b55-bade3f07a42c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121519, 3321, 277, 4, 54, "Subsection",ExpressionUUID->"e7c25194-78ed-4947-a20e-7f63a5a31b70"],
Cell[CellGroupData[{
Cell[121821, 3329, 262, 5, 28, "Input",ExpressionUUID->"f59c564a-83cd-43b2-9c10-3d17d2b3fcff"],
Cell[122086, 3336, 666, 15, 48, "Output",ExpressionUUID->"39ac2022-6733-42c8-87d7-5d11bb1e7b78"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[122801, 3357, 286, 4, 54, "Subsection",ExpressionUUID->"01617395-9611-4340-b747-53f66f5eed82"],
Cell[123090, 3363, 236, 4, 35, "Text",ExpressionUUID->"608554c7-d5e5-4a11-8c26-22ee002316d0"],
Cell[123329, 3369, 894, 26, 28, "Input",ExpressionUUID->"03a31d3d-9449-40e4-b579-29101d58927d"],
Cell[124226, 3397, 220, 4, 35, "Text",ExpressionUUID->"fd65de84-2ccf-419e-8fda-4a5751f7f16a"],
Cell[CellGroupData[{
Cell[124471, 3405, 398, 9, 43, "Input",ExpressionUUID->"302a9404-91ca-4e46-9d36-63811d672315"],
Cell[124872, 3416, 722, 20, 62, "Output",ExpressionUUID->"9d731eb5-ccdc-4f84-b8b7-9cc6608de778"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[125643, 3442, 187, 3, 54, "Subsection",ExpressionUUID->"a950ec25-c72f-4aff-b49c-38813b1f89ae"],
Cell[125833, 3447, 797, 18, 45, "Input",ExpressionUUID->"1026d779-7246-4792-a05f-aaf524c0bb34"],
Cell[CellGroupData[{
Cell[126655, 3469, 610, 15, 31, "Input",ExpressionUUID->"d09a6c99-c4d8-4455-8160-b6e8b78140fc"],
Cell[127268, 3486, 1283, 34, 48, "Output",ExpressionUUID->"36bd2d54-beda-41f1-99cf-f7aad756dcf6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128588, 3525, 349, 5, 28, "Input",ExpressionUUID->"8a845557-a2c9-4dbf-a8a2-7a10d565b324"],
Cell[128940, 3532, 4791, 114, 64, "Output",ExpressionUUID->"55543be6-d119-4675-921f-fb109fde365c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133768, 3651, 294, 6, 28, "Input",ExpressionUUID->"ba307bb6-7e73-4f0d-941f-8ea08f04c7b2"],
Cell[134065, 3659, 3505, 108, 85, "Output",ExpressionUUID->"0c3b8b92-3e1d-4c42-bc7b-8f46a466830a"]
}, Open  ]],
Cell[137585, 3770, 396, 9, 43, "Input",ExpressionUUID->"ee4c6308-96b5-454f-ad9a-50c8bab642bf"],
Cell[CellGroupData[{
Cell[138006, 3783, 809, 19, 43, "Input",ExpressionUUID->"b7c25e66-8d76-49fa-8bac-bf7997e9653e"],
Cell[138818, 3804, 3029, 96, 82, "Output",ExpressionUUID->"2ae268dc-1cd3-422a-bd1a-4c740ff1ae74"]
}, Open  ]],
Cell[141862, 3903, 1097, 17, 58, "Text",ExpressionUUID->"dc98e71e-87d7-4e5b-9f21-d8e095387e43"],
Cell[142962, 3922, 1988, 46, 105, "Input",ExpressionUUID->"09cdc31f-b9f7-4450-ac27-b56840d67ffb"],
Cell[CellGroupData[{
Cell[144975, 3972, 1153, 26, 45, "Input",ExpressionUUID->"4fb41d9b-bfe2-4641-be9d-940d7c5176b7"],
Cell[146131, 4000, 2460, 50, 48, "Output",ExpressionUUID->"63867698-8904-4b08-a2d8-21f7aa3b1892"]
}, Open  ]],
Cell[148606, 4053, 424, 6, 35, "Text",ExpressionUUID->"6e0dfc9d-2079-44f2-b672-6ed77781d330"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[149079, 4065, 257, 4, 67, "Section",ExpressionUUID->"4b95fe16-5124-41fa-b2d6-0d4bce0af041"],
Cell[149339, 4071, 438, 10, 43, "Input",ExpressionUUID->"3adc96a4-2e90-48da-bece-4ac35416622a"],
Cell[CellGroupData[{
Cell[149802, 4085, 237, 4, 54, "Subsection",ExpressionUUID->"ebe688ed-a284-4ab6-a260-2f0b89d1f3c6"],
Cell[150042, 4091, 331, 5, 35, "Text",ExpressionUUID->"1b117606-8ff5-47c4-a739-fd6495f442f8"],
Cell[150376, 4098, 797, 26, 74, "Input",ExpressionUUID->"28473798-289f-4f6c-b0f9-c05b9629bd43"],
Cell[151176, 4126, 182, 3, 35, "Text",ExpressionUUID->"cf61edda-1aaa-42c8-a43a-495ee1c0f310"],
Cell[151361, 4131, 865, 21, 43, "Input",ExpressionUUID->"c680ec24-2237-46bc-a5f6-075a75728962"],
Cell[152229, 4154, 478, 7, 35, "Text",ExpressionUUID->"0f1d21b8-194d-4954-9c2f-f846838850cb"],
Cell[CellGroupData[{
Cell[152732, 4165, 321, 6, 28, "Input",ExpressionUUID->"fb7ebe61-6b4f-4a94-a010-dd4a44f45332"],
Cell[153056, 4173, 3851, 98, 86, "Output",ExpressionUUID->"bf605815-39b4-4304-94c2-a0d33d3e7f1a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[156968, 4278, 240, 4, 67, "Section",ExpressionUUID->"315048c3-df2e-44d8-92b0-9f711b02f0f3"],
Cell[CellGroupData[{
Cell[157233, 4286, 248, 4, 54, "Subsection",ExpressionUUID->"f078238f-9e18-4b78-aba0-a4558e90b159"],
Cell[157484, 4292, 450, 11, 43, "Input",ExpressionUUID->"7e1233ca-0ebc-495a-852f-9728f005a1e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[157971, 4308, 267, 5, 54, "Subsection",ExpressionUUID->"a60776c4-ccab-4087-95e3-ebe972ca0264"],
Cell[CellGroupData[{
Cell[158263, 4317, 262, 4, 45, "Subsubsection",ExpressionUUID->"0ab52749-81ef-4569-80d6-9d8f5cf9de18"],
Cell[CellGroupData[{
Cell[158550, 4325, 1320, 29, 64, "Input",ExpressionUUID->"3c46ad1f-d03a-449a-bdac-7ca894eeaec4"],
Cell[159873, 4356, 1992, 40, 82, "Output",ExpressionUUID->"8bc6f49d-ee1a-4871-b1d0-9dc199703b10"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[161914, 4402, 197, 3, 45, "Subsubsection",ExpressionUUID->"b05a8553-695b-4414-a032-aae30b43e6b2"],
Cell[162114, 4407, 510, 7, 35, "Text",ExpressionUUID->"f9c046d1-d0f6-4257-a647-10dcf4e9c7f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162661, 4419, 201, 3, 45, "Subsubsection",ExpressionUUID->"4777db92-6df6-4856-af10-b94d04826378"],
Cell[162865, 4424, 446, 7, 35, "Text",ExpressionUUID->"3f30f329-38d1-4f33-8604-d39b1ad866f3"],
Cell[CellGroupData[{
Cell[163336, 4435, 1070, 26, 64, "Input",ExpressionUUID->"68d69a81-4cd5-4ac8-a21d-c9a6538d0d7e"],
Cell[164409, 4463, 1361, 32, 82, "Output",ExpressionUUID->"c2d1cc00-3f35-4747-9860-72e9acfb74b5"]
}, Open  ]],
Cell[165785, 4498, 415, 6, 35, "Text",ExpressionUUID->"e98f86d7-823e-4470-a80d-06282a5df594"],
Cell[CellGroupData[{
Cell[166225, 4508, 436, 10, 43, "Input",ExpressionUUID->"5b820480-88bc-4d02-be41-11577342a65c"],
Cell[166664, 4520, 987, 33, 116, "Output",ExpressionUUID->"ebebbdd0-bcc1-4776-a838-727c02fd7226"]
}, Open  ]],
Cell[167666, 4556, 684, 13, 81, "Text",ExpressionUUID->"5d748a3f-a3c7-4b27-9e31-2ef04a352ed2"],
Cell[CellGroupData[{
Cell[168375, 4573, 1025, 23, 43, "Input",ExpressionUUID->"55bf9170-a428-46d1-9f5a-f599f5f0f392"],
Cell[169403, 4598, 910, 30, 54, "Output",ExpressionUUID->"7f6ddc6f-7519-4289-b38f-2e5627413946"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170350, 4633, 414, 9, 48, "Input",ExpressionUUID->"b773b385-7fa6-4a18-8846-f85e58bda3bb"],
Cell[170767, 4644, 1340, 32, 82, "Output",ExpressionUUID->"54ee9b83-5a76-477a-afc8-f470cf782c13"]
}, Open  ]],
Cell[172122, 4679, 254, 4, 35, "Text",ExpressionUUID->"4a827e24-4fce-4c9c-9b25-e78d4f9b9fbd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[172437, 4690, 251, 4, 67, "Section",ExpressionUUID->"d264a300-cfe7-48e9-a814-cbdeb594ec04"],
Cell[172691, 4696, 1218, 36, 96, "Input",ExpressionUUID->"51894e1f-c647-47f7-8eaf-f70af507fd62"],
Cell[CellGroupData[{
Cell[173934, 4736, 194, 3, 54, "Subsection",ExpressionUUID->"1a86a965-6f93-41de-9734-34659b50fd30"],
Cell[CellGroupData[{
Cell[174153, 4743, 363, 6, 28, "Input",ExpressionUUID->"f7a913c3-d981-4c5e-ba14-be10ec6a809c"],
Cell[174519, 4751, 1100, 34, 59, "Output",ExpressionUUID->"7ae92b6a-1617-47d7-bf96-92b5987c70bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175656, 4790, 280, 6, 28, "Input",ExpressionUUID->"0bb0a95a-d0ed-4a6b-9937-51d4731375df"],
Cell[175939, 4798, 810, 22, 32, "Output",ExpressionUUID->"2a33422d-7b04-457a-854c-fda42b4ee59f"]
}, Open  ]],
Cell[176764, 4823, 265, 4, 35, "Text",ExpressionUUID->"4cb43439-e597-4196-8382-309a49fd6ce3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177066, 4832, 318, 5, 54, "Subsection",ExpressionUUID->"d559becc-d5e1-4c65-98ef-b5f14ae1e205"],
Cell[CellGroupData[{
Cell[177409, 4841, 501, 11, 43, "Input",ExpressionUUID->"47eddeec-ad27-4dac-9f5c-d3287f7977da"],
Cell[177913, 4854, 705, 17, 32, "Output",ExpressionUUID->"711596d7-3df0-4391-a1f5-152b01308912"]
}, Open  ]],
Cell[178633, 4874, 216, 4, 35, "Text",ExpressionUUID->"c8cd1ef1-62a6-4454-a3bc-b6c774fb233c"],
Cell[CellGroupData[{
Cell[178874, 4882, 253, 5, 28, "Input",ExpressionUUID->"80fd4c55-9715-4394-92ab-c4752cd04cab"],
Cell[179130, 4889, 8938, 187, 306, "Output",ExpressionUUID->"5dee0370-35b3-4e05-b1c5-ba90817cd90f"]
}, Open  ]],
Cell[188083, 5079, 232, 4, 35, "Text",ExpressionUUID->"9f4a95fa-628a-40fd-b1cb-89b20c692134"],
Cell[CellGroupData[{
Cell[188340, 5087, 302, 7, 43, "Input",ExpressionUUID->"c43c6e12-a9b9-4654-93c7-1b5de664d7ac"],
Cell[188645, 5096, 308, 7, 32, "Output",ExpressionUUID->"6751bca7-4da2-4eca-a495-10a19cb8d805"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[189002, 5109, 443, 8, 81, "Subsection",ExpressionUUID->"c43600e6-d833-4754-8e99-669588c32a57"],
Cell[CellGroupData[{
Cell[189470, 5121, 429, 11, 43, "Input",ExpressionUUID->"7c61930d-bf92-4b2d-9218-96344aa02dd8"],
Cell[189902, 5134, 15509, 332, 353, "Print",ExpressionUUID->"e722c4cd-b9b1-403f-9179-ea251aa5f4a6"]
}, Open  ]],
Cell[205426, 5469, 698, 16, 35, "Text",ExpressionUUID->"02fa758c-a340-4506-9d19-49815181ce1b"],
Cell[206127, 5487, 246, 4, 35, "Text",ExpressionUUID->"db49ef61-320d-4f55-acdb-9cb324f7bf5b"],
Cell[CellGroupData[{
Cell[206398, 5495, 369, 8, 43, "Input",ExpressionUUID->"249ff8f8-7e13-4120-ab5e-9b1ecb9c4e29"],
Cell[206770, 5505, 10583, 230, 380, "Output",ExpressionUUID->"c439e07d-5ea9-494f-a8a3-656f16c4e8cf"]
}, Open  ]],
Cell[217368, 5738, 1503, 47, 63, "Text",ExpressionUUID->"bcc8f08d-ed2e-4549-be5a-ca22a4092935"],
Cell[218874, 5787, 1225, 33, 106, "Input",ExpressionUUID->"474f2eb0-a8b9-48a0-b888-7f5ae1a866d5"],
Cell[220102, 5822, 1323, 41, 48, "Input",ExpressionUUID->"49192641-6a0e-4170-9ab1-7521fa6aadb2"],
Cell[CellGroupData[{
Cell[221450, 5867, 288, 7, 43, "Input",ExpressionUUID->"cbf1c5cd-f948-4299-953a-967f4cce89b1"],
Cell[221741, 5876, 10591, 231, 380, "Output",ExpressionUUID->"e744bffb-c64f-4662-8d64-f09a895897bb"]
}, Open  ]],
Cell[232347, 6110, 311, 5, 35, "Text",ExpressionUUID->"adc7ce04-12b4-4a34-8892-6a2c168ea848"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[232707, 6121, 284, 5, 67, "Section",ExpressionUUID->"ebef2e91-e2b1-4c03-beed-427a5410a391"],
Cell[232994, 6128, 1056, 31, 59, "Input",ExpressionUUID->"c4b912bb-03d8-489a-a616-72c95efd9e59"],
Cell[234053, 6161, 433, 6, 35, "Text",ExpressionUUID->"60b74e37-f2a2-422b-8d49-d187c8767a90"],
Cell[CellGroupData[{
Cell[234511, 6171, 199, 5, 43, "Input",ExpressionUUID->"9d370189-6360-4188-bdf4-587a04c35963"],
Cell[234713, 6178, 5634, 111, 313, "Output",ExpressionUUID->"6e063409-6289-40b1-a274-251a837a712d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

